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Declarations 
pee Pld Ff Data 
Reedeyr e Data 

ot A Data Structures 
a 


Sunner ize UETINIDEV. DAT 


- POTENTIALLY OK 
BUILD ~INIDEV Routines - hh suacnocess 
- FINISH _CONTROLLER 


P 

Check Uheth ra ieee Needs S$FAO Arguments 

sxstee Service Except on 
UTMSG Action Routine 

RMS Error Handler 

CTRL/C Handler 

Error Message 

Error Exit 

Exit Handler 
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~ENABLE SUPPRESSION 

o 

0 
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ft 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
DIGITAL EQUIPHENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
ALL RIGHTS RESERVED. * 
® 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
NLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. © 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. e 
® 

& 

® 

® 

me 

z 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 
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++ 

FACILITY: 
This setule will be distributed with VAX/VMS under the (CSYSTEST] 
account. 


; ABSTRACT: 

This program creates a file called UVETINIDEV.DAT containing all device 
names and unit numbers of devices that are supported 7 the UETP. 
Various Lists internal to VMS are searched to collect this information. 
As this file is being created, the device, if supported, has a pyc 
test done on it to make sure that it is basically functional. If 

the device is not functional it is deselected from further UETP 
testing by modifying UETINIDEV.DAT. 


; ENVIRONMENT: 

: This program will run primarily in user ecceat mode, with ASTs enabled 
except during error processing. The UVETPSCLSIODB subroutine runs in 
kernel mode. we rousts the following privileges and quotas: 


COOOCoOooooooooooooooooSo 


SooCooooooo 


AUTHOR: Larry D. Jones, CREATION DATE: November, 1980 
; MODIFIED BY: 
v03-008 RNHOO09 Richard N. Holstein, 06-Jul-1984 


NOAA AN @ 9 OD NA NE WIN 0 OD NO UE WIN 9 ODIO EWI 0 OONOU EW OOONOW 


PUTT UU BB BEE PWIA inononononononononony 3 2 2 


SOOoOoooooooooooo 


Soooooooo 
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Add NOA as known, but not testable. 


V03-007 RNHO008 Richard N. Holstein, 15-Feb-1984 
Take advantage of the new ere message codes. Fix SSERROR 
interaction with RMS oy- Fix algorithm which checks for 
known, but not testable devices. 


V03-006 RNHO007 Richard N. Holstein, 10-Jul-1983 
Add NDA as known, but not testable. 
V03-005 RNHOO006 Richard N. Holstein 06-Mar-1983 
Be even more cautious if a process hangs - time out SDELPRC. 
V03-004 RNHOO0S Richard N. Holstein 14-Jan-1983 
Define SYSSERROR as of for the device test subprocesses. 
V03-003 RNHOO004 Richard N. Holstein, 07-Jan-1983 


Convert to use U TPSCLS100B routine to search VMS‘'s I/0 
database. Redesign lo ue averse deals with known, but 
untestable devices. F SERROR to be reentrent. Have 
AST routines specifically” set up SSERROR os their erat 
handler as necessary. ean out the remains of pre-V 
Miscellaneous fixes Listed in the V3B UETP Workplan. 
Indent Lines copied from Saewaeaae device test log files. 


v03-002 RNHOOO3 Richard N. Holstein, qe~dune 6S 
Fixed problem of ACCVIO in kernal mode if a controller has no 
units connected to it. Related presiens of bogus Line in 
UETINIDEV. «DAT and wrong unit number in error messages also 
xed. 


SOOO CCOCSOOOOOOOOOOOOOSCSoO 
COOOCCOOCOCOCOCOCOCOOCOOOCOOOOOOOCOOOOOoOoOOo 


OOOCOCOSOSOSOSOOSOSOOOOOOOOOOOOOOOOOOOOOOOoOO 


v03-001 920005 Lares D. Jone 15-Apr-1982 
Fixed MA780 extra UC record. i the inidev “le bug. 


V02-007 RNHOO002 Richard N. Holstein, 18-Jan-9182 
Increase TEXT BUFFER "las to hold larger messages. Fix 
bug where BBS tested mask instead of bit position. 


v02-006 RNPOO03 Robert N. Perron, 31-Dec-1981 
Removed upper cosine of begin sentinels 


v02-005 nuPoode Robert N. Perron, 23~dec=196} 

Fixed so that nen-supner ed devices do not appear in 
UETINIDEV. DAT. Added device summary or tos out to Sut. EXIT and 
removed eM of DDB and UCB Lines. F fred handling of 
remote terminals - skip them. 


v02-004 RNPOOO01 Robert N. Perron, 05-Nov-1981 
Modified to allow batch execution. 


v02-003 LDJ0002 rry D0. Jones 14-Oct-1981 
Reset DNIM betact *creating each new subprocess. 


v02-002 pene ichard N. Holstein, 05-0ct-1981 
ceeesy SS$ =f9N NTROLE to be a warning. Use yecendary device 
characterist os for DDB devices a approp pr te. Remove 
ALWAYS flag - it nfo from being typed and 


SOOoOoooooooooooooooooosoo 
OOOCOOCCoOoCoOoCoooooo 


OOOCCOCOOOOSOOOOOSOSSSOSOSOOSOSOOOOSOOOOOOOSOOOOOOOOOOOOOO 
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11 
11 
11 
11 
1] 
12 


is redundantly implemented by judicious use of SHRT_RPRT. 
80 


v02-001 LDJ0001 D. Jones wo - 1981 
Fixed reporting a N T as a non~supperted device. 
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- -SBTTL Declarations 
; INCLUDE FILES: 


Accounting definition 

Condition handler trons definitions 
Device classes and Eypes 
Device intorastion Block 
SGETDVI ITMLST item codes 
$Q10 Temes ten codes 
JPI definitions 
Process quota list definitions 
Section ornare ons 

Shared messages 

System service status codes 
Status ret 

rr tts 1/0 detabeone definitions 


PARPAAPRAAAAHAAAHOS 


CCDE 
HFDE 
CDEF 
mitt] 
VIO 

ODEF 
PIDE 
QLDE 
ECDE 
HRDE 
SDEF 
TSDE 
ETID 


- os i ee ee Be | “awh naw 


A 
C 
D 
D 
D 
I 
J 
Pp 
$ 
$ 
$ 
$s 
U 
U 


4 

0 

4 

0 

1 

§ DEF 

z SUETPDEF 

: > EQUATED SYMBOLS: 

: Facility number definitions: 
00000001 8 RMSS_FACILITY = 1 
0; SHR message definitions: 
1 UETPS FACILI Tyastssy FAC -NO ; Make a mask of UETP facility code 
§ NETPS. -ABENDD™= UETP!S ABEND OO: Define the UETP message codes 
UETP$_BEGIND = JET pi sure” BEGIN 

4 UETPS_ENDEDD = UETP!SHRS_ ENDED 
5 UETPS_OPENIN = 
g UETPS_TEXT = UETP! SHRS— TEXT 
8 
9 
0 
4 
é 


3 snternas ie bits...: 
SHRT_RPRIV. =O 


Oooooococo 


OOOoCoooooooooooooooooooooooooooSo 


SOCOSCSSSOSSSSSSSSSSSSSSOSSOSOSOOOSSOOSOS 
DSOSSOSSSSOSSSSSSSSSSOSOSSOSSS 


ek a a 4 4 4 > 8 = ot = 2  — © ss +s 1 2 1 ss ss 1 tt 


00000000 ; Set if short report format desired 
00000001 accin” MSGV = 1 ; Set when ‘‘begin’ msg has been output 
3 -» and cofresponding ne 
sees 4't SHRT aenat SRPRTV 
0000002 BEGIN_MSGM = 1aBEGIR_MSGV 
3 Misco) lanes 
LC_BITM = “x20 3 k to convert lower case to upper 
REC_SIZE = 9 3 UET IN: DEV.DAT maximum record size 
o8 TEXT BUFFER = 250 : interna} text buffer size 
8 SS_SYNCH_EFN = 3; Synch m sces)anecus system services 
9 MAR_DEV_BESIG = 10 ; Longest possible controller name 
7 MAX"UNIT_DESIG= 3 Lon est possible uate number 
us MBX_SIZE = 256 3 box buffer s 
7 MAX SUMM_LINE = 80 3 Seana qummery l ne we'll create 
74 INDENT = ; Indentation when copying log files 
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0000 


53 seettaiaes ' 4 
55 ER 
55 sonooezs "9 )6r9°Rr" 


4D 00000039'010E0000' 
52 00000045'010E0000' 
4F 00000053'010E0000' 


4E 0000005E '010E0000" 


53 00000069'010E0 
44 4E 4D 


10E0000° 
41 40 


00000499" 00000491 *B0090¢4t 
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or~ws 


cpcoaD 
wr OOONO 


une 


Note ietatatatatatatatat=) 
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PSD PS OO 09 SI NINA AAI 


next, resulting ab 
byte (assum 
marker to prevent string overlap and a 


RORMONINONINININ) 2 SS BOOS OOOO 000 00000RM0 


NAA WPS @§ CO ODNOU EW "CO ODNAOUEWN  —OOOVNOUS WO 0aOn 


POR POPOPOPONOPOPOPONONPOPOPONOPOPOPOPOPUPUIINNIPIND NON ss ss 


_ ~——— + - HF 


ro V04-0 Page 
UETPSY. SRESUEYINI G01 MAR: 1 . 3) 

-SBTTL netsh as Data 
~PSECT RODATA,NOEXE ,NOWRT ,PAGE 

ACNT_NAME : ; Process name on exit 
-ASCID /SYSTEST/ 

TEST_NAME : ; This test name 
eASCID § /UETINITO1/ 

SUPDEV_GBLSEC: ; How we access UETSUPDEV.DAT 
-ASCID /UETSUPDEV/ 

; Run mode logical name 

«ASCID /MODE/ 

REPORT _NAME : ; Long or short rogers indicator 
ASCID /REPORT/ ; See note where STRNLOG is done 
«ASCID /ONE/ 

SUBPROC_ERROR: ; SYSSERROR for the device tests 
eASCID /NL:/ 

SYSSCOMMAND : ; Name of device from which we... 
eASCID /SYSSCOMMAND/ i «-.get any input 

NO_RMS_AST_TABLE: ; List of errors for which... 
-LONG RMS$_BLN 7 «+eRMS cannot deliver an AST... 
-LONG RMS$_BUSY 3; «..even if one has an ERR= arg 
-LONG RMS$_CDA ; Note that we can search table... 
-LONG RMS$_FAB i «+-via MATCHC since <31:16>... 
-LONG RMS$ RAB 3 «e-pattern can't be in <15:0> 

NRAT_LENGTH = .-NO_RAS_AST_TABLE 

COMMAND_ITMLST: ; SGETDVI arg List for SYSSCOMMAND 
«WORD 4,DVIS_DEVCLASS ; We need the device class... 
“LONG DEVBUF 0 

3 «and the equivalence name 


¥ 64,0V1$ DEVNAM 
.LONG BUFFER BUFFER PTR 
LONG 3; Terminate the list 


CLSIODB_ARGLST: 4 ; What we send to UETPSCLSIODB 


el 
-ADDRESS CLSPTR,LCLPTR,MPMPTR 
«LONG UIDFLAGSM_DDB!UIDFLAGSM_UCB!UIDFLAGSM_MPM! UIDFLAGSM_SID 


There is some trickiness in ysing the following. We have a table of short 


p nst a short ASCIC device name, If we just used 

C of sClt strings on ASCII syringes one string could “’slur’’ into the 
n with ASCIC str ngs though, the length 

Strings of all prcaresie characters!) serves as a 


ng ‘‘short 
lows the MATCHC to work as we wish. 


4] 
41 
41 
41 
42 
41 
54 
41 
42 
41 
at 
20 
20 
20 
20 
20 


50 


000 

00001 

21 20 42 58 32 21 00000198" 01060090" 
20 42 

2A 20 42 58 32 21 0000011A*010E0090" 


20 2A 2A 20 20 20 0000012A'010E0000' 


50 54 45 55 20 3D 20 $3 2 8 $} e te 


~~ 
fo te fe -) 


VOODOO OO BDLOOCNMNNONINIM QOD S&S LOOM OWDLS LOOM OTBDDL FOOOMM BDL FOOOO 


PW AWW IWIRIPINIPY @ = QOOCO TNH HHH HMMMMMMMMNOOCOOVTCVCTTIAAAAAOAO 


a a a ee ed ed ed a od od td = = QO OOO OO OC OCOOCOCOOCOOOOCOOCOO 


29 KNOWN BUT NOT TESTABLE: 
eASCIC /OPA/ 


231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 


5 


- ADOR 
i OVERHEAD _ LENGTH = 
E_NARE : 
-ASCIC /NAME = UETPDEVO0/ 


o PHAS 


265 LOG_NAME: 


KBNT_LENGTH = 
-BLKB 


eASCID / 


CONTOO Ove RNE ND: 
DRESS PHASE NAME 


ae ag A SYSTEM CONFIGURATION ‘sifer 


/CSA/ 
/NLA/ 
/CRA/ 
/CRB/ 
/RTA/ 
/NET/ 
/MBA/ 
/MBB/ 
/NDA/ 
/NOA/ 
/PT / 
/PU / 
/PA / 
/CN / 
MCJ / 


-~KNOWN,BUT_NOT_TESTABLE 
/'2KB !2xB / 


/'2xXB e* / 


ee. ee ee. ee ee ee eS. e. ee ee. ee. e. e. ee 


ex / 


= EonT 60 _OVERHEAD/4 
; Phase name for the device test phase 


Be 00:85:38 EGETPSY. SRESUEYINI TOD .maR; 1 


; Start of ASCIC string table 
Operator console name 


Diagnostic load device name 
Null device 

First card reader 

Second card reader 

Remote terminals 

Networks 

Mailboxes (local) 

Mailboxes (shared memory) 
Network dummy 

Asynchronous DECnet 

Generic UDA for magtapes 
Generic UDA for disks 
Generic CI as a cluster connect 
DECnet over a Cl 

Generic common journalling 


Space for patching other devices 


Device class and type control string 


Device class-only control’ string 


renee SFAO result 
from MPM Rei asacteristics”’ 


Table of overhead A OP 
«+ethat begin UVETCONTOO.DAT 


UETCONTOO file log name 


4 
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50 54 45 :3 ze i? 0 ¢° $f éf ts te D138 266 sASCIC /LOG = UETPDEVOO.LOG/ 


3 6F 88 $6 89 7 delahabod 
; 


ro V04-0 Page 
UETPSY. SREIGETINIGOT MART op 


}) 7 HEADER_REC: ; UETCONTOO.DAT init records 
8 ASCIC /! UETP Device Test Phase/ 
A 


0162 

0178 

0178 THREEMIN: ; Time out value when creating... 
FFFFFFFF 94862E00 a -LONG -10*1000*1000*180,-1 i «device test suberecesses” 

D1 ONEMIN: ; Time out when SDELPRCing... 
FFFFFFFF DC3CBA00 4 2 -LONG -10*1000*1000°+50,-1 3 «device test suberecetoes 

D1 BLANK _LINE_PTR: ; SPUTMSG MSGV iti 

0001 0093 : aie 3.1 SPUTMSG MSGVEC for writing blank Line 
741131 F LONG ETPS_TEXT!STSS$K_SUCCESS 
000001 ; ~ LON 
00001AB’ 019 eADDRESS BLANK_LINE 


LOG_BEGIN: SPUTMSG MSGVEC for copying log file 


98 
98 
OOOF 0003 98 -WORD 3,°XF 
00748084 OF [LONG UETP$_COPY_LOG 
aoe A3 . LON 
000004A9' 4 ADDRESS TESTING_MSG 
AB BLANK_LINE: 
00000183'010E0000' eASCID // ; This Line intentionally left blank 
LOGEXT: 3; Log file type 
47 4F 4C 2€ LASCIL /.LOG/ ° os 
CONT_STR: ; Control string for VETCONTOO records 


41 21 20 59 20 59 9099" f'93060090" eASCID /Y¥ ¥ IAS “*!AS''/ 


22 1 21 


TEST_COUNT: ; Testable count logical name... 


43 SF 54 53 45 54 seated Ot wd »ASCID /TEST_COUNT/ i «for UVETCONTOO Tile 


Control string for UETCONTOO records 


TST_CNT_STR: 
4C 55 21 000001E6'010E0000' “ ",ASCID = /!UL/ 
DDB_CTRSTR: ; UETINIDEV.DAT... 
-ASCID /DDB T !AC/ ---DDB record control string 


WOOD ONO VW "OOO NOU EWN (OOOO WO 0 


20 54 20 42 44 44 GOO0TF "9 10F90RN" 


—DQOOCO BM NWRMMMOVOVOOCOOCOWWWWVIw 


SOOCDOOOCPW?F YS FS VOOOMMMPOOOuUws 


oe 09 50 5 SF a8 a 


00000014 END_MSGL = .-END_MSG 


—_— —OO OOo pre 8 | COD OOCOCOCOCOBDWODOODOOOOINN NNN NO 


PROPIPOPIPOPON YS to 


5 
$ UCB_CTRSTR: ; UETINIDEV.DAT... 
20 54 20 42 43 55 00000206" 91059090" eASCID /UCB T !52W/ ; ..-UCB record control string 
: END_MSG: ; UETINIDEV.DAT... 
0 -ASCII /END OF UETINIDEV.DAT/ ; ...ending message 
1 
2 


rr 
IW 


veyiN 101 


oo 


00000000" 6660 ¢ 
00000000°9 00005 
00000000 

ates” 0 
00000000 609 494 


4 
A 
4 
f° 
4 
14 
00 
0903 000 

0000049" 


4D 50 4D 89" 


20 20 20 65 6C 62 61 74 73 65 74 


a 


20 65 6C 62 61 74 73 65 74 6E 2 20 


*» $6080008 


F $8 S90gg2A4" 01060000" 
SECEEEEELL 


E— 73 6 


9 r 6F 7 ie $3 3 2909 ¢" 10E0000' 
HSA SOUTER 
e ti 61 6D ; er 66 20 54 44 2E 


4E 49 47 45 42 0000030C'010E0000' 
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i 


9B 


RD 4, JPI$_UIC ; 
-ADDRESS UIC 
“WORD 4, JP{$_ASTLM 
SADDRESS ASTLM70 
“WORD 4 P18 B10LN 
“ADDRESS BIOLM? 
"WORD 4 JP1$-DIOLM 
“ADDRESS O1OLM> 
[WORD 4,JPI$. TOLM 
SADDRESS fQLM,0 
“LONG 0 
CONT_DESC: ; 
«WORD 5 
ADDRESS OTF FERSG 
MPM_LITERAL: ; 


sASCIC /MPM/ 


TESTABLE: 
“ASCII 
~ENDR 
eASCII / testable / 

TESTABLE_LEN = .-TESTABLE 

UNTESTABLE: ; 

‘ MAX_DEV_DESIG+1 

eASCII / / 

-ENDR 

-ASCII / untestable / 3 

-*UNTESTABLE-TESTABLE_LEN, .ERROR 


MAX_DEV_DESIG+#1 
// 


~ TIF NE 


eASCII /none/ 
NONE_LEN = .-NONE 


SUMM_HEADER: 
-ASCID / **® Summary of testable 


3 FORMAT_ERR_ MSG: 


0:85:35 


AX/VMS Macro V04- 


0 Page 
UETPSYSREIUETINITON MAR: 1 o 8” ¢&) 


; List for the $GETJPI service 


Desc used to convert controller... 
««-from lowercase to uppercase 


Shared memory must be called ‘MPM’ 


; Message summarizing testable ise 
; useye space for controller (which.. 


-is overwritten) and colon 
Corresponds to UNTESTABLE 


Message sysner ting ¥ untestable units 
Corresponds to TESTABLE 

Also corresponds to TESTABLE 

; TESTABLE & UNTESTABLE must he same Lengt 
Message saying no testable units 


and untestable devices. ***/ 


-ASCID /Error in UETINIDEV.DAT format./ 


START_DESC: 
»ASCID /BEGIN/ ; 


; Sentinel for. 
eStart of useful log file info 
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Read-Only Dat 


44 45 44 4E 45 00000319'010E0000' 
EVEL EER 
AELTEE. He: 


0 
C 
D 
is 8 a E 
E 


ro AMAAAO 


#5 25 7895 6s] sponse nuoggony 
43 2F 4C 52 54 4 


65 6C 69 66 000003C1'010E0000" 
64 72 6F 63 65 72 000003CD'010E0000" 


eb 20 &€ 69 20 72 SPeze re go 40 98 
44 41 21 2 


65 6C 6 


Aarne 
POUNAO 


onofr "Oo 
CIN 


STOP_DESC: 
-ASCID 


4 FNF MSG: 
‘ .ASCID 


: 
67 FLK_MSG: 
68 -ASCID 


9 
379 CNTRLCMSG: 
71 -ASCID 


g FILE: 
: eASCID 


RECORD: 


9 
Q GETDVI_FAIL: 
1 -ASCID 


7 

5 

33 CLSIODB_FAIL: 
84 -ASCID 


38 BAD_PO_LIST: 
47 ~ ASCID 


oe 


SCID 


.ASCID 
RMS_ERR_STRING: 
8 ~ASCID 


P=1984 UETPSY. gee 


: Sentinel for. 
/ENDED/ i wend of useful log file info 


Message for —— sypereress | log 
/Log file !AS was not found from testing controller !AS./ 


roc hasn't pathy pags say ‘t get log 
/Log file !AS is locked on testing controller !AS./ 


\Aborted via a user CTRL/C\ 


: Fills in RMS_ERR_STRING 
/tile/ 
: Fills in RMS_ERR_STRING 


/record/ 
; Announces an RMS error 
/RMS !AS error in file !AD/ 


/$SGETOVI failed - status was:/ 


/Unable to read List of devices available to this system./ 


/ILlegal format in List of devices available to this system./ 


/$Q10 failed when writing mailbox - status was:/ 


si co 


/VMS Macro V 
TPSY.SRCJUET 


AX 
UE 


85:35 | 


8g 


SSEP=19be 


$ 


C 7 
ION SIZER 


VAX/VMS UETP SYSTEM CONF IGURAT 


Read-Only Data 


20 73 75 74 61 74 73 20 ge 69 is gf 


— 
Oo 
= 
= 
— 
> 


-ASCID /$Q10 failed when creating subprocess - status was:/ 


CID /Error running !AS for controller !AS - final status was:/ 


|) | 

co — 

<« < 

o- ve 
on 
oO We 
ot wo « 

ce ] iv) 

Z Y 

Yv oO 

a «x 

- a 

e s 

Y ” 
-OMm wTwmwo 
aan AOnw 
mere mere 


; Message if we must stop subprocess... 


LASCID) \IAS testing controller TAS was stopped (S$DELPRC) at !%T\- 


98 PROCESS_STOP_MSG: 


97 


99 


\!/!_ because it seemed hung or because UVETINITO1 was aborted.\ 


.-before getting termination mailbox 


Message if SDELPRC couldn't ssep proc 
AS did not stop despite SDELPRC.\- 


ee —_—- 


MSG: 


§ pass 


OVER 
eee 


-ASCID \!AS testing controller 


400 
401 
40 
40 
404 


\!7!_No longer waiting (!%1T) for the termination mailbox.\ 


SSS ST TT TMA AAA MAAN AAA OOOOOWO 
COOOOOOOOOCOGOOOOOCOCOOOOOOOOOOOSOSOOCSOCOSOSOSOSOCOOOSoSoO 


OmMvons—Ownn 
Sr owrnwmoson 
OorOoMvu «Th Oe 
teeta Nr ONO 
K“OnsToOo -OOoOMm 
ouontwnN csucuCUMmr 
MUWwNeEWw BME NO 
~ catataati wer owe 
oom wm 
ONT OORMNO 
So-coo. MNOOWw 
Our OON TO 
KM NO MOVNWu 
wor oNm OOO TO 
— eM Winer 
TONDO DOOsK 
MWwoowTr mvwr 
AON ROO 
OoveDO MO-OoOM 
NPR COC RNOMO 
TNs pee + a 
KRONN OORM 
Wem rn ove 
Soran SRN 


onvommnains o 
ODOUR SOUR CU. O 
S.ou ue One 
SOS aree 
KOmuO Ke Owe 
owuwuwvwo wher. Oo 
= 
www Ter ue OOWY 
 ctemaeatas MONOO 
cow wo N 
ONUNO wWOWOWO”O 
OerMO wTuwu 
oun OF OOO 
Meer T OW Oo 
NOSRN WOON 
—ueMus VWWOww 
Tonos OORT 
MMUoowm whom 
Wows ODOR O 
OovwwOvu wOoOOou 
NPE ONST OWVOO 
TINOZTO &OMwW 
KEOOM ONDODO 
MewwyFnny woo 
oowuowom woven 
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Read/Write Data 


0000 


00000000 
01 
oerns 


seco | | 
sonnet * 


00000000 
00 


0000 


0000 
0000 


0000 
0000 
0003 

' 
00741130 
001 

000 


00000038" 


0000 OOFA 


00000043° 


0000 OOFA 


00000043° 


0000013p 


80000140" 


00000000 


THM DS POV & 


kd dd td od I IOOOO 


OOOCOCOCOCOSOOCOCCCOCOCOSCOSOSOOOSOOOOOOOOOSOO 


OoOoOOooooocoooo 


RHR O NVWW SS MM MOOTWIDOOOOL fw 


SSoooooes 


Rew aes 


Pee oe ot ot ot ot MMU UMUUMUUUUAUUARUMAMUMMAUMAMAAAUARMAUAMAAHHHHMHNHHHee 


—o at a ot et 
PP PAIWHE 


wn FO Oww 


$ 
-$ 
-SBTTL Read/Write Da 
»PSECT RWDATA,WRT,NO 
UIC: 
g ONG 0 
QUOTA_LIST: 
-BYTE PQLS_ASTLM 
ASTLM: 
«LONG 0 
-BYTE PQLS$_BIOLM 
BIOLM 
«LONG 0 
-BYTE PQLS$_DIOLM 
DIOLM 
-LONG 0O 
«BYTE PQ LS_TQELM 
TQLM: 
-LONG 0 
«BYTE PQLS$_LISTEND 
TTCHAN 
ORD O 
MBXCHN 
WORD 
MBX_UNIT: 
-WORD 0 
MBX1_CHAN: 
-WORD 0 
FLAG: 
WORD 0 
LOG_RCD: 
» WORD 
-WORD *B0001 
«LONG UETPS_TEXT 
~WORD 1 
-WORD 0 
MSG_PTR: 


-LONG BUFFER_PTR 


FAO_BUF : 
-WORD _TEXT_BUFFER,O 
ADDRESS BUFFER 

BUFFER_PTR: 

.WORD _TEXT_BUFFER,0 
ADDRESS BUFFER 


" \BLKB TEXT_BUFFER 


@o 
= 
+ 
w 


ALT: 
LONG MAX _SUMM_LINE 
-ADDRESS ALTBUF 
ALTBUF PTR: 
-LONG 0 


1984 00:24: AX/VMS Macro V04-0 P 11 
71384 0:43:38 UETPSY. SREIGEYINI 107 .MAR; 1 rt (4) 


; Our UIC 
; Quota List for created subprocess 


Channe! associated with ctrl. term. 


Mailbox channels - termination mbx 


Unit number for termination mailbox 


SYSSINPUT of created subprocesses 


Miscellaneous flag bits 
(See Equated Symbo\s for definitions) 


; Message vector for SPUTMSG 

; Arg coun 

; Message only flag 

; Message | 

; FAO arg count 

; No new msg flags 

; Message buffer for SPUTMSG 

; FAO output string descriptor 

; Fake .ASCID buffer for misc. strings 
; A word for length, a word for desc. 


; FAO output and other misc. buffer 
; FAO output string descriptor #2 


; Output string descriptor #2 


veyin 101 
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Read/Write Data -S 


00000140" 0149 


14 

0000019D 014 
19 

19 

QOO001AS 019 
1A 

1A 

0000025 a 
> 
SSGHER. §3 
000002BA 098A 


00000000 


poooosce® 


00000207 


O00002DF F? 
00000353 


00000000 


058 
2 


AWWD DD NN NWI OD NN NOOPOMMmn > > POF OMNI O OCT 


00000000 
00000000 


Se OS CSCC CNA N ERODE 


00000000 


INNS 


00000378 


"DWOO~~ 


LE. 


SSesaa 


ADDRESS ALTBUF 
.BLKB = MAX_SUMM_LINE 


ALTBUF : 


= 
AAO 
wr 


ODNA NEW OOD NA UNE WN OOO NAUE 


DEVDSC: 
-~BLKL 2 


MBX _BUF : 
-BLKB MBX_SIZE 


TEST_DSC: 13 
ADDRESS TEST_IMAGE 


PERL LLL LLL LLLP REPRE PEP PEE 


EXIT_DESC: 
-LONG 0 
ofpper en, Sats HANDLER 
-ADDRESS STATUS 


7 
7 
7 
7 
f 
77 TEST_IM AGE : 
f -BLKB 13 
PIDADR: 
-LONG 0 
LOGNAM arn 0 
“ADDRESS LOGNAM 
LOGNAM: 
-BLKB 17 
89 DEV: 
490 »LONG DIBSK_LENGTH 
91 ADDRESS DEVBOF 
$36 DEVBUF : 
rts -BLKB DIBSK_LENGTH 
495 ERROR_COUNT: 
£38 -LONG 0 
498 STATUS: 
rh -LONG 0 
1 QUAD_STATUS: 
¢ -QUAD 0 
4 INADDRESS: 
5 -LONG 0,0 
$ OUTADDRESS: 
«LONG 0,0 
: TST_CNT: 
19 -LONG 0 
1 MSG_BLOCK: 
1 -BLKB 4 
14 
+ 
1? 
15 
20 


; DO 
T 


:85:35 EUETPSY.SRESUEvINIvO1.mans1 °8° U2 v6 


FAO output buffer #2 


yee name descriptor 


e 
his gets filled at runt ine 


Mailbox read buffer 

movies test file name descriptor... 
-for the subprocess we create 

Device test file name 

rine ge PID of the subprocesses... 
«we create for each controller 

Descriptor for log file name 


Device Information Block 


Cumulative error count at runtime 
Status value on program exit 
Status block for return from... 


--miscellaneous asynch services 
SCRMPSC address storage 


Count of UETCONTOO data records 
Auxiliary SGETMSG info 


Exit handler descriptor 


vey 101 


00000000 : 
F 

0 FA 
SE.ERt. He 
00000491 ? 
491 
491 
00000000 00000000 hd 
49 
00000000 00000000 rh 
4A) 
00000000 00000000 04A1 
4A9 
4A9 
Ag 


00 04 
"p09beet 4B1" Q4AD 
20 67 6E 69 74 481 
23 83ond rt 44 


0489 
0489 
20 0489 


a 


VAX/VMS _UETP SYSTEM CONFIGURATION” siter 
Read/Write Data 


ARG_ COUNT: 
«LONG 0 


TEMP_BUFF_DESC: 
.QORD TEXT_BUFFER,O 
s ADDRESS TEMP _BUFF_STR 


“BLKB TEXT_BUFFER 
0,0 
0,0 


- LONG 
TESTING Sant + 


0,0 


-ADDRESS . 
“ASCII frosting / 
-ASG_LENGTH = ,~TESTING_MSG-8 

G_MSG_ TEXT: 
conseoTEN MAX_DEV_DESIG 
eASCII / / 
-ENDR 


"SSEp=1986 80:45:38 


; Argument counter used by ERROR_EXIT 


AX/VMS Macro V04- 


Page 
UETPSY.SREJUETINITOI.MAR:1 © 


Temp buffer to hold capitalized... 
«record to check for sentinel 


Receives results of VETPSCLSIODB... 
---call for local peripherals 


vor} 1 results of UVETPSCLSIODB... 
all for shared memories 


moose results of VETPSCLSIODB... 
all for cluster peripherals 


vues becomes part of the message.. 


--Surrounding a copy of a... 
--log file froma subprocess 


Gets overwritten with controller name 
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TINITO1 VAX/VMS UETP SYSTEM CONFIGURATION” 1ZER 1 P-1 AX/VM - 
Vi RMS-32 Data Structures , ie g-S66 71982 8? ge: # UeTPSY Y.S$ Bata: 1.MAR;1 tenets t%) 


4C »SBTTL oe -32 Data Structures 
rt: »ALIGN LONG 
404 INI_FAB: ; Allocate FAB for UETINIDEV 
tee | 88 $FAB- ¥ — 
404 : FAC = > PUT,UPD,TRN>,= 
tee SAR . cGeT PUT ,UPI> 
= 
4c 5 FNM = <UETINIDEV.DAT> 
514 § INI_RAB: ; Allocate RAB for UETINIDEV 
ei¢ $9 SRAB- 
14 FAB = INI_FAB,=- 
514 $6 UBF = BUFFER,= 
514 6 RBF = BUFFER,- 
314 64 USZ = REC_SIZE 
55 96 SUP_FAB: ; Allocate FAB for UETSUPDEV 
22 6 $FAB- 
5 o FAC = GET,- 
33 : SHR = <UPI,GET>,- 
5 0 FOP = U - 
35 4 FNM = <UETSUPDEV.DAT> 
Baa 73 eats imal ; Allocate FAB for UETCONTOO 
03h ef? FAC = <PUT>,-=- 
SA 6 RAT = CR,- 
OSA , FNM = <UETCONTOO.DAT> 
Ber 23 CON AAR: ; Allocate RAB for UETCONTOO 
268 1 FAB = CON_FAP 
63C : LOG_FAB: ; Allocate FAB for UETINITO1 log 
63C 4 $FAB FNM = <UETINITO1.LOG>,- 
63C 5 RAT = CR,- 
63C 6 FAC = Put 
68C LOG_RAB: ; Allocate RAB for UETINITO1 log 
68C : $RAB FAB = LOG FAB,- 
68C RBF = BUFFER,- 
re + RSZ = TEXT _BUFFER 
rt 38 TMPLOG_FAB: ; Allocate FAB for subprocess log 
D 9 SFAR RAT = CR,- 
$ 34 AC = GEf 
7 38 TMPLOG_RAB ; Allocate RAB for subprocess log 
7 $ FAB = TMPLOG_FAB,- 
7 UBF = BUFFER,- 
7 9 USZ = TEXT_BUFFER 
764 «6 ’ DDB_RFA: ; Storage for current DDB RFA 
0000076A 0764 -BLKB 6 
76A § END_RFA: ; Storage for END Line RFA 
00000770 O76A 6 -BLKB 6 
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vba Main Program ai ets 1 2:98:38 UETPSY. sae JOEY INISO1 LAR: 1 F 


Pp 
0000 
0000 
6D OC9I'CF ODE 


D 


“Sart Main oree ee 
-PSECT UETINITOT,EXE,NOWRT,PAGE 


DEFAULT DISPLACEMENT ,WORD 
-ENTRY UETINITO1,“*M<> ; Entry mask 


; Start to set phings up. We need our own overhead geeks (exception, 
; CTRL/C and exit handlers, name and Log Atte? the items for 

: what we produce (UETINIDEV.DAT, UETCONTOO.DAT) and the means of 

: producing them (UETSUPDEV.DAT, various logical names, communication 
: for subprocesses). 


; Overhead tasks. 
. BOVAL SSERROR, (FP) : Declare exception handler 


ETSFM_S ENBFLG = #1 ; Enable system service failure mode 
SOCLEXH_S DESBLK = EXIT_DESC ; Declare an exit handler 


SCREATE FAB = LOG_FAB,- ; Create our own log file 
ERR = RMS-ERROR 
SCONNECT RAB = LOG_RAB,- 

ERR = RMS~ERROR 


—— = QOOOS DOOCOCoooooooons 


+ 
orrowwo 


OCOOCCOCCOCOOCOSCOOOOOOOOOOOOoOOoCOoON 


7E 34 CLRL - ; Set the time stamp flag 

we 4 PUSHAL JEST MARE 3 ges, the test —— , 

e@ argument coun 

00741039 BF DD x 


QOO000000'GF 04 FB 
0O21'CF O02 AB 


0 


; Pus 
PUSHL #UETPS BEGIND!STSS$K_SUCCESS ; Set the message code 
#4,G*LTBS$SI ; Print the startup message 
BISW #BEGIN_MSGM, FLAG ; Set flag so we don't type it twice 
SSETPRN_S PRCNAM = TEST_NAME ; Set the process name 


- 3; Get the name of... 
= #SS_SYNCH EN. 3 «--device which may abort test 


10SB 
BLBS QUAD_STATUS, 


OOOOCCoooooooooo 


> Pee SSS eR i inrnenentarn~a0 
PMO POT TOW OWL *PMMMMMUM von 
DYE PAPAA AAPA AAA AAA AA AAA AAA AA AA AAA AAOAA AAAS OA SAO OAO AAA OAOOSOOAO 


28 O28 ce 8 hs ; BR if all went OK 
52 0358'CF C MOVZWL QUAD STATUS,R ; Set u aren ist so we can sepegee... 
085s 0 SBW FAO_CHECK ; ..-LIBSSIGNAL's use of SPUTMSG 
PUSHL i; Save flags and FAO count for SPUTMSG 
02 EQL 10$ ; BR if there are no FAO args 
01 oD 108 PUSHL #1 ; There are args - save dummy for count 
52 04 1 ADDL3) #4,(SP)+,R2 ; Pop bogus arg and get arg count 
7E 58'CF C MOVZWL QUAD _STATUS,-(SP) ; Save the error status 
Farge 4 pUSnAL G TOVI_FAIL ; Explain what went wrong 
00741132 OD PUSHL #UETPS_TEXT!STSSK_ERROR 
2 D PUSHL R ; Arg count for ERROR_EXIT 
ODEF 1 “ 208 BRw ERROR_EXIT 
O2DF‘CF 42 BF 91 A? CMPB #0C$_TERM, DEVBUF ; Were we invoked from a terminal? 
45 12 AD ; BR if 


PDOAAMAA AAI BEE EEE BBWAA AAA AWIAROROPURNIPPUNRIIN QO 


OOD NAME WIN OS O09 NAME WINS OOD NAN EWN OD OD NAME WN 0 OD NAME WH OODIAM 
v 
Cc 
a“ 
= 
- 


NEQ : no 
SASSIGN.§ DEVNAM = BUFFER_PTR,- ; Set up for CTRL/C ASTs if we were 
HAN = TTCHAN 
$Q10W_S CHAN = TTCHAN,- ; Enable CTRL/C ASTs... 


Wee 
vein T01 VAX/VMS UETP SYSTEM CONFIGURATION SIZER 19° o- 138% 0: ¢3: #8 AX/VMS Macro V04- Page 
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: $¢ wes = 2108 SE RODE! 108A CTRLCAST,=- 
OOOF * . +4 E be wee Test _NAME 3 «--and teli the user... 
01 F 0D E § PUSHL oye ies A rei Tse. SUCCESS 
O'GF 3 ED CALLS #5,G*LTBSSIGNA 3 «+-how to abort gracefully 
2 g What we produce. 
OF4 eri 40s: 
F4 ie SCREATE ce = INI_FAB,- ; Create UETINIDEV.DAT 
Fe 67 = RMS"ERROR 
674 SCONNECT rAB = INT_RAB 
1 675 = RMS “ERROR 
5B OSF8°CF DE Q1 o78 MOVAL chin RAAB RIT ; Set the RAB pointer for UETCONTOO.DAT 
11 67 SCREATE iy = CON_ FAB,- ; Create UETCONTOO.DAT 
117 678 = RMS TERROR 
126 667 SCONNECT FAB = (RTI) 
1 680 = RMS_ERROR 
5A D4 Q1 681 CLRL B y : Initialize ogeunter for overhead Lines 
1 6 § 40$: 3; Write UETCONTOO.DAT overhead Lines 
gt re cree DO 0135 6 MOVL CONTOO pyenne note 92 ROY ; Point to the next ASCIC overhead Line 
22 AB OCO69)siO9BCé*OD 71 684 movewe 4 ( Y? RABSW_RSZ(R11) ; Set the record size 
2808. 659°)=«Ci«Ts1 13 685 ADDL ne Ro, RABSCCAR F(R11) Set the record address 
= : write a ne 
0144 6 3 ERR Ans. VaR ROR 
EO SA O03 F2 bia6 ? 3 ; AOBLSS HOVERHEAD~ LENGTH,R10,40$ ; Repeat until overhead Lines written 
0199 690 ; What we need to use in order to produce. 
155 69¢ . SOPEN FAB = SUP_FAB : Open UETSUPDEV.DAT 
155 69 = RMS“E oR 
164 694 SCRMPSC_S INADR =" INADDR Greete its global section 
164 695 CHAN = SUP FAB+F ABSL $1 
164 696 RETADR = GUTRDDRESS 
164 697 GSDNAM = S erin in Cy 
164 038 FLAGS = #SEC eabReg! SECSM_GBL 
C $72 STRNLOG_S RSLBUF = = OO EOF a - ; Get” long or short report format 
145 701 3; We need not check SS$ NOTRAN: BOFFER will contain ‘REPORT’ on errors. 
9043"CF 20 BA O1A3 7 é BICB2 #LC_BIT 8.8 FER Convert to upper case 
0043'CF 53 Be f te 4 ? a #*A7S/ YER ; Bo ve we went a short report? 
0021'CF 01 iB 18 4 5 50S: BISW2 #SHRT_RPRTM,FLAG : Else set “eho short report flag bit 
18 § : SCRELOG_S rere s = ace ; Set a 3 logical name MODE... 
1B5 7 5 EQLNAM = EQUAT oa 
1c 710 SCREMBX_S CHAN = MBXCHN ; Create subprocess termination mailbox 
i a ead 5-1 Be = oo ; Get the mailbox unit number 
OO1D'CF O2EB'CF B0 iff ig MOV DEVBUF #D1BSu UNIT,MBX_UNIT ; Save the mailbox unit number 
FB 714 $GETJPI_S ITMLST = JPI_LIST ; Get our current quotas, etc. 
D 715 SCREMBX"S CHAN = #BXT" CHAN ~ Create SYSSINPUT for subprocesses 
D £16 MAXMSG = #MAX DEV besié,- 
dD 671 LOGNAM = TEST” 
4 718; Fall into loop to build “UETINTDEY. DAT. 


vere 101 


26 28 

8 a 

i 

01 

52. BE 4 
mate's 
00741132 
OC3A 

SA O36F°CF  036B'CF 
5B aida 
5B 0499" CF 
OA 

58 sre 
0250 

06 AB 

0 

6 


wu-o-°o-002 


8F 
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IN Ne) 


Si i i i I a NB i i ip nn, i in, ip. i tn, nn tn in Se te | 


DPV SVT BB BS BS BE BB NAINA IPR 


DONA MNE WN OS OO NAME WN 0 OO NOME WN OOONOUM 


+ 


sible to this system. Cull f 


on't appear n UETSUPDEV.DAT). 
UETINIDEV.DAT. 
we read. 


BUILD_INIDEV. 


SrSEp=198e 0:85:35 


fore a representation in user mode PO space of the dey ices which are 
v rom the 
know of, but know that we have no speci 
remainder those devices we don't know at a 


AX/VMS Macro V 


04- Page 
DET PSY SRETGET NIGO1 MAR: 1 ? 


ces which we 
Cull from the 
-@., devices which 


st those dev 
ic Fees for. 
Ll ¢ 


Use what remains to write 


SCMKRNL_S ROUTIN = UETPSCLS1ODB,- 
ARGLST = CLSIODB_ARGLST 

BLBS R0,110$ ; 

MOVL RO.R : 

MOVL R3.R : 

BSBW = FAO_ CHECK : 

PUSHL R : 

EQL 100 : 

PUSHL #1 : 

100$: 

ADDL3 #4, (SP)+,R2 : 

PUSHL R 

PUSHAL CL S10DB_FAIL : 

PUSHL @# 

PUSHL #UETPS$_TEXT!STSS$K_ERROR 

PUSHL R ; 

BRW ERROR_EXIT 

110$: 

SUBL3 OUTADDRESS,OUTADDRESS+4,R1 

MOVL LCLPTR,R11 ; 

BSBB BUILD {NIDEV ; 

MOVL MPMPTR,R11 : 

BSBB -—Ss- BUILD INIDEV ; 

MOVL  CLSPTR,R11 : 

BSBB = BUILD_{NIDEV ; 

BRW DO_SUAMARY : 

BUILD_INIDEV: 

CASEB UIDGNRC$B_TYPE(R11),- ; 
#UID$K_NUCL_RTYPE,- ; 
#UILDSK-END_RTYPE 

108: «WORD ~ NUCL_RECORD-10$ 
“WORD SID RECORD-10 
"WORD PATA RECORD-10$ 
“WORD DDB_RECORD-10$ 
“WORD UCB-RECORD-10$ 
“WORD MPMTRECORD-10$ 
“WORD END-RECORD-10$ 

; Still in BUILD_INIDEV Loo 

3; Fall 


; Pop bogus arg and 
; Save the error sta 
; Explain what went wrong 


See CLSIODB.MAR for a description of the database 
Use the list to see which devices are really testable. 


Note that R10 and R11 remain assigned throughout the range of 


; Form a List of devices we can see 


; BR if the List was formed 
; Save status over routine call 


; Set 13 eran let 
; .»-LIBSSIGNAL's 
; zeve flags a 


so we can S9pease. «- 
use of SPUTMSG 

nd FAO count for $PUTMSG 
f there are no FAO args 


; There are args - save dummy for count 


get arg count 
us 


Arg count for ERROR_EXIT 


0; Figure UETSUPDEV section Length 
Point ° 


EV.DAT for clus. periph. 


r 
1D 
res cluster periph. record 
with summary, etc. 


Dispatch based on record type... 
e«-in the List we just got 


p 
into the routine for illegal or out of sequence record types. 
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F 3 
F 8 ; Null _records are supposedly used as prokgep ing and error recovery devices 
: 4 ; by UETPSCLSIODB. However, there really is no case when they should appear. 
F NULL_RECORD: 
F : This can be reached two ways. It is the default branch from the CASEB 
F ; above, indicating an illegal record type was seen. We also get here if 
: : 3; @ record is out of sequence, e.g., a UCB record precedes a DDB record. 
F : PAT4_ RECORD: 
F 7 UCB_RECORD: 
0458'CF 4 F f 3 <i} ta BAD_PO_LIST ; Explain what went wrong 
00741132 8F dD 38 790 PUSHL #UETPS_TEXT!STSSK_ERROR 
3 pp 98 =791 PUSHL # ; Arg count for ERROR_EXIT 
OBF6 1 9D P38 BRW ERROR_EXIT 

A 79 

A 794 

A098 

r 799 : End records mark the end of a group of records returned by UVETPSCLSIODB. 

AQ 799 END_RECORD: 

05 8 7 B01 RSB 
02A1 02 ; Still in BUILD_INIDEV Loop. 
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Program P=1 UETPSY.SRCJUET NI101 MAR; 1 ° (9) 

Al 

Al stem id record introduces a potential tree of DDB and UCB records f 

Al ces on that SCS cluster node, Items for VETINIDEV.DAT will fook similar 

Al ; to those for local devices, except that the DDB Line will have the full SCS 

e Once set up, we can use the same routines as local DDBs. 

Al 

al UIDSID$T_NODENAME +1 (R1 ; Form descriptor... 

AS UIDSIDS$T emt (SP) ; ...to cluster node name 

AB UIDGNRCSE_SIZECR 1),RO ; Get the length of this record... 

ry 108: RO,R11 3 «++SO We Can point to the next 

AF . #UIDSK_DDB_RTYPE,- : Is this a DDB record? 

5 YIDGNRESB_TYPECRI1) 

8 $ ; BR if so - we can process it 

B #*M<RO,R1> ; Finished the tree - fix up stack... 

1 208: BUILD_INIDEV 3 «and look to the next tree 


uiee BST_NAME+1(R11),R7 ; From the ASCIC, form a descriptor... 


(R7) RB 


N_BUT_NOT~ TESTABLE 


3 

#1,R7,R0 
R6, (RO) ,#KBNT_LENGTH,- 
KNOWN BUT _NOT-TESTABLE 


SKIP_CLUS_RECORDS 
10$ 


UIDGNRCS$W_SIZE(R11),RO 
itt RTYPE 
DENRCSB. TYPE (RE) 
SK 1P_CLUS_RECORDS 
0$ 


the controller name 


+ onct® 
; See the note where KNOWN BUT_NOT TESTABLE table is defined. 
MATCHC RG. (R ) ,#KBNT_LENGTH, = 


ee if specific device is known... 
-+-but not testable 
we found it in table 


; See if generic device is known but... 


; BR if $0 


«»not testable. (We strip ‘’c’’... 
...-0f “‘devc’’ but include ASCIC count) 
BR if device may be testable 


Device is not testable, skip it... 
-+-and look to the next 


Restore desc for cluster node name 
Figure the Length of... 

.--the complete cluster device name 
Save the space to form a string 
Finish ASCID pointer to device name 
Concatenate cluster node name... 
eeewith syntax character... 

«+-and with device name 

Set up ASCIC device name on stack 


Temporarily point... 
---to the next record in the List 
Is this a UCB record? 


We can't figure out device, skip it 


4 ; We now need to check to see... 
:'Try first for an exact match... 


s device is known to UETP 


Yinpror 


oA 


5A 


0140'CF 8 


014D'CF 8 


SE 019D' 
F 


50 ae 48 


YAL/ VES A. isd SYSTEM CONFIGURATION” iter 1973 $ ae 9 0: ge: HY 


e 


39 


13 


39 


tS 


SBR ASSSSOOS OU MP BnsoSoooowW Ours Wwe 


a 


SSN Om 


Pl = R4,- 
P2 = R 
Bee MATCHC ALTBUF_PTR,ALTBUF,R10,- ; 
TADDRESS 
CTRSTR = CS$3,- 
OUTBUF = = £RO 
OUTLEN = = A faut "str, - ; 
ALTBUF _PTR,ALTBUF,R10,- : 
a UTADDRESS 


SHEDEV.CLUS _DENOSU 


BCOCOD OOOO NINN SOOOOOm 
NOUS WMO OONOUES WN |  OOONOUNS 
o 
oO 
e 


~ 
o 
* 


VDSC,SP 3 

$ 3 
; We found a device class and type with 

: > and skip over it. 

99 SuPDEV_ CLUS_DENOSU: 

RAL DEVOSC 
ygst. NAME 3 
#UETPS_DENOSU 


9 #STSSV-SEVERITY 
oat Sts, SEVERITY: (SP) H 
CALLS BSSIGNAL 


;BS8B sie. CLUS_RECORDS F 


ew 0O@ 
** 


OOOO OO0OO0@@wom 
~O 


Bs90c | ted Uses. An 
st t po nts to 
look at e record 

7.8. a + e 


we want to sk 


KIP_CLUS_RECORDS: 
MOVZWL ULDGNRCSW, SIZE(R11),RO : 
ADDL2 


woowowowowowvovond 


no match in UVETSUPDEV.DAT. 


we can *t test this device for some reason, $9 ski 
complaints about the sit 

he DDB recor¢ from Us ThecL 51000. Note that we must 

p rather than chain t 

type and that we skip the first record (DDB) without checking 


AX/VM 


UETP SY SREIGEYINITOTmaR:1 22° 29) vi 


-»-0f device class and type 


; BR if we have a hit 
; Next try a wildcard match... 


++-0N device class only 
Match device class only 
BR if we matched 


We can't find device - complain... 
«+-and skip to the next 


; Save ASCIC pointer for SFA 


Set up a default UETINIDEV. DDB Line 


Set ve UETINIDEV.DAT 

See if the device is feetty testable 
Copy the results of the test 

Analyze the results of the test 


; Clean up ASCIC device name... 


«+-from the stack 
Loop to process next record 


Complain 


No match at all,... 
«+80 yell at the user 


Set the poverty sede 
And print the message 
Fall into SKIP. tLUs RECORDS 


over this DDB and any 
uation have been issued. 


o the next record 


Pick up the record length... 
.+-and point to the next record 


ver iN 


101 


7 
mre se Cmrteoarton SHER ACRE TSEE BERS HY UNISYS tet PBy msn "O° fh 
06 04 CMPB ’ 108K ue BHPE CR 1) i; Is it a UCB record? 
8 ie 5s ie Hf 13 prot 4 td CLUS"RECORDS i; Loop if so 


: 
ea RAO gEDg STOVER cOmewmarion’siBen gees SOAS RE HSH ESCTSGRs ans "O 


A DDB record has a testable device if the DDB none doesn't appear on the 
List of known but untestable devices and if the first UCB attached to the 
DDB has a device class and type that match something in UETSUPDEV.DAT. 


Because the data returned for shared memory are similar to those for 
ordinary peripherals, we can share most of the same code. We will 
occasionally need to pick up data from different places. 


R10 and R11 are esroney assigned as the length of the UETSUPDEV section 
and the pointer to the current 1/0 database record, respectively. 


PM_RECORD: 
MOVAB 


Be + Oe Oe Oe Oe Oe Oe Oe Se Oe Se ee 


¢ 
CF o9E 
56 FF A? QA 
019D'CF 26 7D 
B Q 
CF 
CF 
82 


: 1 
ce 358 
C 4 
: 5 
ia 
c8 355 
C 930 
C 1 
c3 Rg 
57. 0269° C 934 0 MPM_LITERAL+1,R7 ; Shared memory name is always ‘MPM’ 
CA 935 MOVZBL <-1(R7),R6 ; Parallel actions for DDB record 
g cf 9 § MOVa R6 DEvbs¢ ; Put desc in a safe place 
8 D D 9 MOVL {,R 3; Fake a temp pointer to next record 
O14D'CF O12A'CF 8188. i D 938 MOVC3) MPM_CS,MPM_CS+8,ALTBUF ; Fake $FAO device class and type 
0145'CF 0122' 0 E 939 MOVW MPM_CS AL TBuF PTR ; Fake $FAO OUTLEN 
00 1 O3E7 940 BRW MPM~ANO_DDB_BOTH 
O3EA 943 
6 EA 808 DDB_RECORD: 
57 OC ns 9E EA 944 MOVAB UIDDDBST_NAME+1(R11),R7 ; From the ASCIC, form a descriptor... 
O19D'CF FFA 98 EE 945 MOVZBL <-1(R7) ,DEVDSC ee 
OIAI'CE «657 «=O OO3F4 94g MOV R7, DEVOSC+4 ; ...to the controller name 
O3F9 94 ; See the note where KNOWN BUT_NOT._ TESTABLE table is defined. 
0040 8F 67 O19D'CF 39 O3F9 948 MATCHC DEVDSC,(R7),#KBNT_CENGTH,- ; See if specific device is known... 
00B8' CF 401 949 KNOWN_BUT_NOT_TESTABLE ; ...but not testable 
11 3 404 950 BEQL 10$ 3 BR f we found it in table 
| 6S aa 406 951 SUBL3 = #1,R7,RO ; See if generic device is known but... 
00460 8F 60 O19D'CF 9 Q40A 928 MATCHC DEVDSC, (RO) ,AKBNT LENGTH,- ; ...not testable. (We strip ‘‘c’’... 
0088 ' CF 412 95 KNOWN BUT_NOT_TESTABLE ; ...of ‘deve’ but include ASCIC count) 
03 12 r} aee 108 BNEQ 20$ ; BR if device may be testable 
00A3—s«531 rth 328 208 BRw SKIP_RECORDS ; Device is not testable, skip it 
5 4 3¢ O41A 958 MOVZWL BIO RAC EY SIZECRITD RO ; Temporarily point... 
o. a3 3 235 959 ADDLS = RO,R11, 3 ...to the next record in the List 
04 91 04 960 CMPB) ss #ULDSK yce RTYPE,- : Is this a UCB record? 
06 Ag 424 961 YIDGNRE B_TYPE(R8) 
0 3 04 $ 306 BEQL $ 
009 1 04 96 BRW SKIP_RECORDS ; BR if not, we can't figure out device 
& 9A A 0428 44 30$: MOVZBL UIDUCBS$B_DEVCLASS(R8),R4 ; We now need to chegs Oo see... 
5 OA AB 9A O40F 5 MOVZBL UIDUCBSB-DEVTYPE(R8).R5 ; ...if this device is known to UETP 
4 306 $FAO_S CTRSTR = CS1,- ; Try first for an exact match... 
4 96 OUTBUF = FAO ALT,- 
4 368 OUTLEN = ALTBUF_PTR,- 
238 990 Pp) = RS 
= 
5A 014D'CF oes ce 39 rth 971 MATCHC ALTBUF_PTR,ALTBUF,R10,- ; ...0f device class and type 
4 are @OUTADDRESS 
22 13 04 44 oh: SUPDEV_MATCH ; BR if we have a hit 
4 74 FAO_S CTRSTR'= CS3,- ; Next try a wildcard match... 
tet 975 OUTBUF = FAO ALT,=- 
457 976 OUTLEN = ALTBUF_PTR,- ; ...0n device class only 


$$ ae 
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457 77 Pl = RG 
46C 4 
46€ 979 MPM_AND_DDB_BOTH: 
5A O14D'CF OteD cE 39 " 80 MATCHC ALTBUF_PTR,ALTBUF,R10,- ; Match device class only 
47 1 @OUTADDRESS 
28 812 «047 ¢ BNEQ SUPDEV_DENOSU ; BR if we can't find this device 
rh 4 SUPDEV_MATCH: 
55 FF A? DE 067 4 MOVAL <=1(R7),R5 : Save ASCIC pointer for $FAO 
47D 985 SFAO_S CTRSTR = DDOB_CTRSTR,=- ; Set up a default VETINIDEV DDB Line 
47D 9 § OUTLEN = BUFFER_PTR,- 
47D 4 bead = F AO_BUF ,- 
47 3 = R5 
8 1A 0 049 y BSBW POTENTIALLY _OK ; Set up VETINIDEV.DAT 
C1 0 049 990 BSBW CREATE_SUBPROCESS : See if the device is really testable 
oh 8 498 991 BSBW coPY_LOG_FILE $ Copy the results of the test 
66 498 336 BSBW FINISH CONTROLLER ; Analyze the results of the test 
FDDB 1 rt i BRw BUILD_INIDEV ; Loop for the next device 
4A1 995; 


4A1 99 : We found a device class and type with no match in UETSUPDEV.DAT. Complain 
4A1 997 ; and skip over it. 


4A1 999 SUPDEV_DENOSU: 
PUSHAL 


44 
C19D'CF DF OQ4A1 1000 $ DEVOSC ; No match at all,... 
ee DF 4A 1001 PUSHAL T ST_NAME : «e080 yell at the user 
ome Ae i || at paren, 
483 1005 STS$V_SEVERITY,- 
6E 4B4 1 3 #STS$S_SEVERITY, (SP) ; Set the severity code 
00000000'GF 04 FB 04B6 100 CALLS #4,G*LTBSSIGNAL 3 And print the message 
Rees 1609 BRB SKIP_RECORDS ; Fall into SKIP_RECORDS 
4BD 1010 ; We can't test this device for some reason, so skip over records until we 
4BD 1011 ; get to the next DDB or MPM in the VETPSCLS$10D8 roup. Any complaints about 
4BD 1 \§ 3; the situation have been issued. R11 still points to the original DDB or 
48D 1015 ; MPM record from UETPSCLSIODB. Note that we must look at each record as we 
reed : 1 ; skip over it rather than chain directly to the next record of a given type. 
48D 1 1 §k1P_RECORDS: 
56 04 D0 O48D 101 MOVL #UIDSK_UCB_RTYPE ,R6 3; Assume we will skip UCB records 
03 91 O4C0 1 13 CMPB #UIDSK_DDB_RTYPE,- : See what we are actually skipping 
06 AB 4C2 101 : DGNRUSB_TYPE (R11) 
13 04€4 1020 BEQL $ ; BR if our assumption was correct 
56 0 00 ats ! 1 108 MOVL #UIDSK_NULL_RTYPE ,R6 ; We will skip exactly one MPM record 
50 04 rs , 3 409 1 : MOVZWL SID gHECEN SIZE (RIND RE ; Pick up the record length... 
58 C 4CD 1024 ADDL2 RO,R11 3 ..-and point to the next record 
06 AB 91 Q400 1025 CMPB R6 UIDGNRCSB_TYPE(R11) ; Is this a record we want to skip? 
F 13 0404 1 § BEQL ; BR if it is 
FDA 31 0406 1 BRW BUILD_INIDEV 3; We've skipped intervening records 


Dd 
A 101 VAX/VMS UETP SYSTEM CONFIGURATION sifeR 19360-1388 90:96:38 AX/VMS Macro v04-0 Page $4 
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if ! -SBTTL Summarize UVETINIDEV.DAT 
409 1 3+ 
409 1 : We've tried out all the supportable devices in the system and have 
409 1 3 Listed in UETINIDEV.DAT the testable/non-testable status of eog? 
409 1034 ; Summarize ynese results in a more any readable form. We will 
409 1035 ; keep certain register assignments sprog out the summary: 
rt 1 § 3 Ril = Pointer to RAB for UETINIDEV.DAT 
409 1 ; R10 - count of characters on a line. May use ALTBUF (R10) 
409 1 8 3 R9 = Unit record type (T or N) targetted by APPEND_UNITS 
: = Count of unwanted records foun 
409 1 g C f d found by APPEND _UNITS 
03 ! r¢ 3 R? = Pointer to string descriptor for SUMM_OUTPUT 
409 1042 ° 
409 1 rk DO_SUMMARY: 
5B OS5S14°CF DE 0409 1044 MOVAL INI_RAB,R11 ; Keep pointer handy to UETINIDEV 
28 ABE Q2O0C'CF OD 4DE 1045 VAL END_MSG,RABSL_RBF(R11) ; Set the end message address 
22 AB 14 «BO O4EG 1046 MOVW #END_MSGL RABSW_RSZ(R11)'; Set the end message size 
SEB 104 $PUT RAB = (R11),- ; Write the end message 
4E8 1048 ERR = RMS ERROR 
O4F5 1049 SFLUSH RAB = (R1T),- ; Make sure everything gets output 
4F5 1050 RR = RMS_ERROR 
288 1051 SREWIND RAB = (R1T),- ; Go back to beginning of UETINIDEV 
50 105¢ RR = RMS ERROR 
57 O1465"CF DE OSOF 105 MOVAL ALTBUF_PTR,R7 ; Skip a Line before we start... 
14 7 216 : 23 BSBu Son OUTPUT rae 
57 o2as: er 43 9319 1338 MOVAL SUMM~HEADER,R7 ; Set up to output summary header 
9119 ai 105 BSBW SUMM_ OUTPUT :; Go output Line 
57 O145'CF DE O05 1058 MOVAL ALTBOF_PTR,R7 3; We'll write from here, evermore 
: 6 ! 2p ~~ = TRIS oe ; Prime pump with the first DDB record 
= 
5 1061 DDB_LOOP: = 
67 4 Q5 1 $¢ LRW (R7) ; Skip a Line between controllers 
gtN9 0 05 106 BSBW SUMM_ OUTPUT ; Go output empty Line 
0043'CF 44 BF 1 538 1064 CMPB #*A/6/ BUFFER 3; Is the next Line for a DDB? 
1¢ 613) «(05 3 1065 BEQL ; BR if it is 
0043'CF 45 BF 91 0540 1 28 CMPB #*A/E/ BUFFER ; Or is it the end of UETINIDEV.DAT? 
» 3 278 106 BNEQ 1 ; BR if not - we have an error 
0126 3 at} ! o8 108 BRW SUC_EXIT ; Summary complete, finish VETINITO1 
O2DE'CF DF 0548 1 79 PUSHAL FORMAT_ERR_MSG ; Goneth ine is wrong with... 
1 dD 4F 107 PUSHL #1 ; «»-UETINIDEV.DAT = output msg and... 
00741132 8F 0D 1 a PUSHL #UETPS_TEXT!STSSK_ERROR ; ...quit 
3 D 107 PUSHL # ; Current arg count 
093A 31 3 2 as Kea BRW ERROR_EXIT 
C 1076; 
é = 5 3; We have a DDB Line from UETINDEV.DAT. We know that if the controller is 
33¢ ! 8 3; not testable, no devices will be testable (FINISH_CONTROLLER routine). 
senna FOE) 28 § ' ? ’ MOVC3 STESTAOLE LEN. TESTABLE, ; Set up initial msg 
A 19 O 4 1 § MOVL #TESTABLE_LEN,R10 ; Set up count of chars on ‘ine 
50 22 AB 96 A ee SUBWS #6, RAB W RSz (R11) RO : Cale controller name Length 
O14D°CF 0049°CF 2 $f 1084 MOVC RO. BUF FER+6, ALTBUF ; Put controller name in output... 
574 1085 ; .--buffer, overwriting blanks 


ee 
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65 3 90 1 § MOVB #*A/:/,(R3) : Insert "':"' after controller name 
1 SFIND RAB = (R11),- ; Move RFA to the first UCB. 
1 8 ERR = RMS_ERROR ..but leave BUFFER unscathed 
Orea"er 10 AB 6 g6 4 1 MOVC3 #6,RABSW_RFACR11),END_ RFA: “Save ist UCB RFA for ross reread 
7"CE 654 BF i 30 CHPE ak 1/ ,BOFFER +4 ; is DDB marked testable? 
O29E'CF 04 2 109 MOVC3 #NORE_LEN,NONE,- : Indicate DDB has no testable units 
166'CF 98 109 ALIBUFSTESTAB LE LEN 
oe. 7 90 98 1094 MOVW gTeSTABLE LENSNONE LEN, (R7) Set Ling teneth indicating that 
0099 9E 1095 BSBW § SUMM_OUTPOT : urite 
16 =«=11 . ! 98 yea T BRB uCcB_ 5 Now AF ho eke untestable units 
59 54 BF 9A \ 28 2 MOVZBL #*A/T/,R9 ; We will search for testable units 
0024 3 SA? 109 BSBW APPEND “UNITS ; Form Line(s) of testable units 
§ D SAA 1139 TSTL 2. : Any untestable units found? 
1 SAC 1101 BEQL Ba COP Get next controller if not 
1€ AB 2 9 SAE 11 § MOVB PRAe C_RFA,RABSB_ op Vy cr115 ; Some untestables - we must reread 
10 AB O76A'CF we 28 q z uce Nn MOVC3 #6,END_RFA, RAB$SW_RFA(R11) ; Point us back to first UCB 
19 28 0589 1105 7 MOVC3 #TESTABLE_LEN ; Set up a line for untestable units 
O14D'CF 0285'CF 5B 1106 UNTESTABLE AL fBUF 
5A 19 pO O5C1 11 MOVL #T uy, LEN,R10 ; Set up count of chars on Line 
59 GE BF 9A O5C4 1108 MOVZBL #*A one RST ; We'll search for untestable units 
0003 M4 05¢8 1109 BSBW APPEND UNITS : Form Line(s) of untestable units 
FF65 1 O5CB 1110 BRwW DDB_LOOP 3; This controller is summarized 
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CE 1112; 
C 1118 ; Append unit numbers to a Line. Wrap around to a new Line if the Line gets 
CE 1114 ; too long. Write out the Lines when done or when wrapping to a new Line. 
13 133? ; Register assignments are Listed near DO_SUMMARY. 
CE 119 APPEND_UNITS: 
58 D4 ; 1318 108 CLRL R8& ; Init counter of unwanted records 
DO 1120 $GET RAB = (R11),- ; Get some record - our access mode... 
500 1121 ERR = RMS_ERROR > «e1S determined externally 
1E AB 90 DD 11 § MOVB #RABSC_SEG RABS$B_RAC (R115 ; We must read UCBs sequentially 
0043'CF 55 BF 9 E} 11 CMPB 0s #*A/U/T BUFFER ; Have we a UCB? 
1 E7 1124 BEQL $ ; Continue on if 40 
67 SA A 5E9 1125 SUBW3 #2,R10,(R7) ; Write Line, str pping separator 
48 (17 SED 1 $ ae BRB SUMM_OUTPUT : Exit APPENO_UNITS via SUMM_OUTPUT 
0047'CF 59 9 SEF 11 8 CMPB RO, BUFFER+4 3; Is this the kind of unit we want? 
06 13 O5F4 11 BEQL «=s-_«-308 : BR if so 
58 D6 2F6 11 9 INCL &e 3; Count opposites if not 
d6=—Ss «11 Ha i 30s BRB 10$ 3; Continue with next record 
4 30 38 OQSFA 11 j SKPC #*A/0/ ,#MAX_UNIT_DESIG-1,- ; Skip over leading zeros... 
0049'CF 5FD 1134 BUF FER+6 3 eeeIM Unit number 
50 D6 0600 1135 INCL R 3; Compensate for short length search 
52 50 2 Al 0602 11 § ADDW3 #2,R0,R2 :; Figure out if we can... 
52 A AO 0606 11 ADDW2 R10,R2 3 «efit unit number and separator... 
52 0050 8F B61 0609 11 CMPW #MAX_SUMM_LINE ,R2 i «.-0n this Line 
15 18 Q60E 11 BGEQ 40$ ; BR we will fit 
67 SA BO 0610 1140 MOV R10, (R7) ; We need to wrap to a new Line 
0 61 1141 PUSHR #*M<RO,R1> ; Save these over routine call 
1 61 1136 B SUMM_OUTPUT ; Write out the old Line first 
20 00 8&F 0 2C 0617 114 MOVCS #0,#°A/ /,- ; Start out the next Line by Lining... 
O14D'CF 3919 61C 1144 #TESTABLE_LEN,ALTBUF : ...up next unit beneath the firs 
A 19 pO 06 1145 MOVL #TESTABLE LEN,R10 ; Reinitialize character count on Line 
03 BA ? 1328 608 POPR #*M<RO,RIS ; Restore length and pointer to unit 
O14D'CA 61 50 28 0625 1148 MOVC3 RO,(R1),ALTBUF (R10) ; Append the unit to the Line 
02C BF OB 6 1149 MOV #*A/, /,¢(R3)+ 3 Append separator to that 
5A 53 0000014D'8F C3 0630 1150 SUBL3. #ALTBUF.R3,R10 : Calculate new Line Length 
96 «11 : 1138 BRB 10$ : Go look for the next unit 
63A 11 : 
63A 1154 ; Write a Line to the UETINITO! log file. If long report is specified, 
° . 1 5 ; write that same line to SYSSOUTPUT also. 
6 A 11 ; SUMM_OUTPUT : 
O6AE'CF 67 8B A 11 8 MOVW (R7),LOG_RAB+RABSW_RSZ ; Get the message size 
06B4'CF O04 A7 D 63F 11 MOVL 4(R75,LOG_RAB+RABSC_RBF ; Set the message address 
ote 1199 $PUT 14 = a. ; Write the log file 
= 
16 0021'CF 9 E 654 1166 BBS enat RPRTV,FLAG,10$ ; Skip if short report 
"CF A 116 MOVL R7,MSG_PTR ; Set up SPUTMSG message descriptor 
Ober , 00 i 1198 10$ SPUTMSG_S MSGVEC = LOG_RCD : Urite everything to YSSOUTPUT 
05 o78 1166 RSB 


Sh 
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Close Up Shop 
1 1} -SBTTL Close Up Shop 
i 1170 SUC_EXIT 
1 #11 $FAO_ S$ Svests = TST_ 
71 «#117 OUTBUF = FAO 
71 ie OUTLEN = BUFF 
71 «#1174 = TST 
1175 SCRELOG_S TBLFLG = #T 
6 1328 LOGNAM = TE 
6 117 EQLNAM = BU 
DO 06 1158 MOVL #SS$_NORMAL!S 
6A1 117 STATOS 
6A4 1180 SEXIT_S STATUS 


SEP=1984 00:85:35 LUETPSY.SRCSUEYINITOT.maR:t 99° (7) 


T.STR,- ; Create a string giving.. 
i ; .eethe number of testable controllers 


T 
i; Create a logical name for 
OUNT,- ; ...the count of testable. controllers 
“INHIB_MSG,- ; Set successful exit status 
; ae, with the status 


wn ' ZwoCcze 


-* 
0 
ry 
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nes = POTENTIALLY_OK SEP=19 UETPSY.SRCJUETINITO1.MAR; 1 
«SBTTL BUILD_INIDEV Routines - POTENTIALLY_OK 


AF 
AF 3 
AF 3; We Bove & a device (controller ond gp nyunber? thet ss ve identified as 
AF 3 potent at sgereese. To see i real by is, have its  beees totes image 
AF ; (from UETSUPDEV) check out each we t. The DDB and UC M info has to be 
AF 3; writt . : UETINID V for that. The DDB L ne "9 cdescr bed by rr 4. ne 
6AF ; RB points to the first UCB or nen record. is left over from ‘ 
6AF 3; We are still in the BUILD_INIDEV Loop, so at and R11 are in Bi r. 
oy : described therein. 
6AF BOTENTIALLY. OK: 
32 33 9 oar movC RO : Saye pointer to start of image name 
8 D MOVL R11 3 s safe to update real database ptr 
0038 CF BO 068 MOV purer : Se Line size 
536'CF INI "RAB RABSW_ RS2 
$PUT xs in. BAB. ba A po 2 oi ey ad Line... 
= e eee or e 
0524'CF 06 28 MOVC3 #6,INI RAB SRABSW. RFA,- ; Save RFA so we can reread record 
0764'CF ia DDB_RFA 
56 07 AB 3s MOVZWL pioureey. whi ee R6 ; Assume we're looking at a UCB 
04 1 CMPB #U1LDSK pte PE ; But are we really? 
06 AB OIDGNRE B BrHPE CRIT) 
04 13 BEQL ; BR if w 
56 O7 AB 3C MOVZWL UIDMPMSW_NUMBER(R11),R6 ; Get the ~paeivelent MPM value if not 


20$: 
SFAO_S CTRSTR = UCB Ere tRee ; Form a VETINIDEV Line for UCB or MPM 
OUTLEN = BUFFER 
wre * = FAO "BUF" 


MOVW Ta ka PTR - ; Set Line size 


$PUT 1 INI ~ Th Write a UETINIDEV. DAT Line... 
-+-for the UCB or MPM 


ERR RROR ; 
50 04 3C MOVZWL U DGNRCSU- SIZE(R11),RO ; Pick up the AF, length... 
58 CO ADDL2 = RO,R11 3 «+-to point to the next record 
91 PB PUIDSK ce - : Is this also a UCB? 
DGNRE ePECRI I) 
13 BEQL + ; BR if it is 
91 CMPB #ULDSK_MPM_RTYPE ; Or is this also an MPM record? 
UIDGNRUSB._ TYPECAI1) 
BEQL $ ; BR if it is 


OSSC°CF_ 020C" 


MOVAL END_MSG,INI_RAB+RABSL_RBF ; Set up to write end-of-file Line 
0536'CF i 


MOVW #END_MSGL,IRNI_RAB+RABSW_RS 
$PUT oS int. *RAB’- ; Write the end of file Line 
= 


S"ERROR 
0524°CF 06 28 MOVC3 #6,INI RABSRABSW. RFA,- ; Save the RFA of the END Line... 


O76A'CF N 3 «tO make truncation faster 
SFLUSH RAB™= INI_R ; Make sure the device test sees... 
RR = RMS"ERR RROR > ...everything we think we wrote 
OS3C'CF 0043'CF DE 
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MOVAL BUFFER, INT_RAB+RABSL_RBF ; Restore typical buffer address 
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TINITO1 VAX/VMS UETP SYSTEM CONFIGURATION sifeR 16-SEP-1984 00:24: AX/VMS Macro V04-0 Page 29 | 
® outines - ! -SEP- 255: ‘ -MAR; 
vba BUILD_INIDEV R tf CREATE_SUBPROCES © SEP 1382 %4 ¢3 $ UETPSY ORE TUET GNIS OT MAR; 1 (15) 
4 ! § -SBTTL BUILD_INIDEV Routines = CREATE_SUBPROCESS 
7 1 8 ; Make the su oprecese which will see if the devices found above have any 
7 1 ; testable units. RY still points to the start of the image name from 
4 : r ; the UETSUPDEV global section. R10 and R11 are in use from BUILD_INIDEV. 
759 12042 CREATE_SUBPROCESS: 
13 0021°CF 00 £0 Q7 124 #SHRT_RPRTV,FLAG,10$ ; Skip separation if short report 
75F 1244 PUTMSG_S MSGVEC = BLANK LINE_PTR,= ; Separate all of this process’... 
75F 1245 N = ACTRTN ; «eemsg's from the previous one's 
772 «1 4g 10$:  $QIOW_S CHAN = MBX1_CHAN,- ; Tell process's SYSSINPUT what to test 
772 «124 EFN = #SS_ SYNCH EFN,- 
772 #1 $8 FUNC = #10$_WRITEVBLK! 1OSM_NOW,- 
772 «124 I10SB = QUAD STATUS,=- 
772 «1 2 Pl = aDEVBSC+4,- 
772 «1 ; P2 = DEVDS 
28 oee8 ce 8 0797 1 § BLBS QUAD_STATUS ,50$ ; BR if all went OK 
52 035B'CF € O079C 125 MOVZWL QUAD_STATUS,R ; Set up arglist so we can appease... 
0463 0 O7A1 1254 BSBW ' AO_CHECK 3; .--LIBSSIGNAL's use of SPUTMSG 
§ D 7A4 1255 PUSHL R ; Save flags and FAO count for SPUTMSG 
0 1 7A6 1 2$ BEQL 20$ ; BR if there are no FAO args 
01 oD ~ ! : 208 PUSHL #1 ; There are args - save dummy for count 
52 ee 04 1 O7AA 1 35 ADDL3 #4,(SP)+,R2 ; Pop bogus arg and get arg count 
7E O35B'CF 3C O7AE 1260 MOVZ2WL QUAD_STATUS,-(SP) > Save the error status 
aaa +4 A ! os 4 tog mBxW_10_FALL ; Explain what went wrong 
00741132 i DD 0789 1 8 PUSHL #UETPS_TEXT!STSSK_ERROR 
§ D O7BF 1264 PUSHL ; Arg count for ERROR_EXIT 
06D 1 43} : 22 30s RW ERROR_EXIT 
O2AD'CF 69 AS'CF 8 O7C4 1 ¢9 OVC TEST_DSC,(R9), TEST_IMAGE ; Set ve image filespec to test device 
E'CF AS'CR 3 Ad 1268 MOVZWL TEST~DSC.LOGNAM DST ; SYSSOUTPOT for that image... 
O2C6"CF OQ2AD'CF AS'CF 8 Q7D3 1 +4 MOVCS TEST_DSC,TEST_IMAGE,LOGNAM ; ...will be the image name... 
O2cé'cF O2BE'CF 2& 3A a 1270 occ #°A/;/.LOGNAM_DSC , LOGNAM ; ...but have a file type... 
61 1B3'CF DO O7E 1271 MOVL LOGEXT,(R1) J cocOT OF 40 
O7EA 1 i SCREPRC_S IMAGE = TEST DSC,- ; Create the subprocess to test device 
7EA 127 PIDADR = PIDADR,- 
7EA 1274 INPUT = TEST_NAME,- 
7EA 1275 OUTPUT = LOGNAM_DSC,- 
7EA 1 r ERROR = SUBPROC_ERROR,- 
7EA 127 QUOTA = QUOTA_LTST,- 
7EA 1 4 MBXUNT = MBX_URIT 
1A 127 SSETIMR_S DAYTIM = THREEMIN,-  ; Set up a timer to catch test hangs 
1A 1280 ASTADR = KILL_SUBPROCESS,- 
1A 1281 REQIDT = PIDADR 
7? § $Q10W_S CHAN = MBXCHN,- ; Set up read for termination mailbox 
ia EFN = #SS_SYNCH_EFN,=- 
F 1284 FUNC = #10$_READVBLK,- 
F 1285 IOSB = QUAD STATUS,=- 
F 1 § Pl = MBX BUF,- 
F 1 P2 = #MBX SIZE 
4 1 3 SCANTIM_S REQIDT = PIDADR ; Q10W finished, we're no longer hung 
ti D4 1 1 CLRL IDADR : Indicate to us that proc is finished 
3F B'CF 8 3 9 BLBS QUAD_STATUS ,50$ ; BR i atl went OK 
D4 BF C A 129 MOVZWL #SS$_OPINCOMPL,- ; Assume for now that we SCANCELLed... 
Ad" CF 6E 1292 MBX_BUF+ACCSL_FINALSTS ; ...the Q10W 
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SYSTEM CONFIGURATION sifeR 1 “3 ee AX/VMS 
Routines = CREATE_SU UBP ROCES 1986 88: 3: $ UeTPSY SREIUEYINIS 1.MAR;1 oe 3) 
ayy id $5. CANCEL QUAD _STATUS 3 But A is we really? 
; we can recove 
cnPY r) $$_ABORT ,QUAD_STATUS ; as @ get S *3és a5 ABORT if 1/0 in progress 
; 0, we can recover 
pee Pun 1 ATUS Re 3 Set ¥Bs8i Uist. so we can ooepegee--- 
‘oe 4 aeek s use of 
PUSHL ; Save flags and FAO sok ler $putnsG 
BEQL 40$ ; BR if there are no FAO args 
PUSHL #1 ; There are args - save dummy for count 


408: 
ADDL3 #4, (SP)+, 
MOVZWL QUAD erates 
PUSHAL CREPRC_O10_FAIL 


USHL 

PUSHL #UETPS_TEXT!STSSK_ERROR 
PUSHL R ; Arg count for ERROR_EXIT 
BRW ERROR_EXIT 

MOVL BPI BUT OACCSL_F IMALSTS RZ 
MOVL #SS$_ABORT,R2 


MOVL R2,MBX_BUF +ACCSL_FINALSTS 


; Pop bogus arg and get arg count 
~ (SP) i; Save j e error status 
; Explain what went wrong 


50$: 
Save termination status 
R if we got a real status 
Ne status, must have been... 
goee SDELPRC, so give a dummy status 
Save status here, too 


60$: 
if process completed OK 


BLBS R ; BR 
$FAO_S CTRSTR = ht th -FAIL,~- ; Give some indication now... 


OUTLEN = BUF 4 PTR>- : eeetf the subprocess failed... 
OUTBUF = i +4480 that we don't just... 
= #TEST “DSc. ; «..die suddenly... 
P2 = #DEVDSC eeeif there's some other problen 

BSBW FAO_CHECK : See if error takes ry FAO a 
PUSHL ee : Save flags/FAO couns wr L1B$ IGNAL 

70$ ; BR if there are no args 
PUSHL #1 ; There are args - Son vo for count 


70$: 
ADDOL3 #4,(SP)+,R 
PUSHL MBX erie FINALSTS 
BI ests NHIB_ASG,(SP) ; Allow message to be printed, always! 
PUSHAL ytd PTR 
PUSHL a*x 6 1 
PUSHL Ro ERRO ne ERROR 


; Pop bogus arg and get arg count 


$Q10_S CHAN = Oat Throw away ‘’SYSSINPUT’’ message,... 
FUN NC = #10$ SREADVGLK:! 108R _NOW 
= aDEVOSC+4 ; ~"..4t can screw up. 
P2 = DEVDSC 3 eee the next subprocess we create 
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SYSTEM CONFIGURATION ifer 16-SEP-1984 AX/VMS Macro v04-0 Page 
Routines = COPY_LOG_FIL g- SEP 1382 Be: ¢¢: # UETPSY.SRCJUETINITO1.MAR;1 . 
26 -SBTTL BUILD_INIDEV Routines - COPY_LOG_FILE 
44 ; Fopy the Log file of ene Wrecece which just finished to our own its file. 
4 : we are “Long reper aege also copy fre part of the log f between 
rk 3 the egining and and "uid ‘sent nels"’ (inclusive) to SYSSOUTPUT. and R11 
r ; are in wee t rom BUILD_INID 
i$ topy_LOG_FILE: 
0 ove LOGNAM_DSC,- 3; Set the file name size 
TMPLOG_ FAB+F ABSB_FNS 
MOVAL erry TmeUps FARCE ABS. Set the file name address 
MOVAL 6 RAD CRAB ABSL ORoFY : rg ® the buffer write. address 
4 OPEN FAB ; Rep Coe ; Open the temp log fi 
5 BLBS 3 if we can rea a 
2$ MOVAL FNF_MSG,R1 ; Assume the error was a missing log 
5 CMPL #RMSS_FNF RO i Is the log file ejecting? 
38 BEQL ; BR if so - a special c 
5 MOVAL K_MSG,R1 3; Assume now that the los. yes locked 
60 CMPL PRMSS “FLK,RO 3 Did the process not terminate? 
61 BEQL 10$ ; BR if so - a special case 
$¢ PUSHAL THPLO 0G_F ; There's some other error, so... 
o7 108 CALLS #1,RMS ~ERROR 3 «exit with a useful message 
65 $FAO_S CTRSTR = 3; Recover from this error,... 
66 OUTLEN = gurrER PTR,- ; ...because it's probably... 
6 OUTBUF = FAO_BUF,- 3 «ea fault somewhere else,... 
$8 Pi = PLOGNAM’ DSC, 3 «.-but complain 
$ P2 = VDSC 
9 PUSHAL thd 3 TR ; Set up to give the message 
7 PUSHL *xF0001 
1s PUSHL . ETPS sea [St seK ERROR 
7 CALLS ,ERROR_ 
74 RSB 
75 208: 
og SCONNECT Jee = = foros pea ; Connect the temp log file 
4 BBS #SHRT SRPRI, FLAG, 30$ ; Skip announcement in short report 
4s MOVCS pevost .8 DEVOsCs 4. ; Form message telling device to test... 
Hi ADDW3 #TESTING MSG _LENGTH,- ; ...and its length 
$ DEVOSC, TESTING_MSG 
SPUTMSG_S MSGVEC = LOG-BEGIN.- ; Give msg saying what we're about to do 
: 30$ ACTRIN = ACTRIN 
§ Hard COP ae RECORD Copy = am J log to our log file 
3 MATCHC START, DESC, START _DESC+8,- ryt RE we nd beginning sentinel? 
P_BUFF_OESC, TEMP SGuPFs fr a 
; not 
3 ty #SHRT_RPRTIV,FLAG,40$ : EOP nel © onl Log if short report 
36 por PUTMSG_S MSGVEC = LOG_RCD : Copy sentinel Line to SYSSOUTPUT 
3¢ psee copy AR RECORD : copy fr from kenp | log to our log file 
96 MATCHC sT6P. “DESC, STOP_DESC#8,- : Did we find ending sentinel? 
9 TEMP BUF F’DESCTTEMP_BUFF. 
98 BEQL 5 : 3; Exit loop if we did 
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VAX/VMS TP SYSTEM CONFIGURATION ifer 16-SEP-1984 124: AX/VMS Macro V04- Pa 
BUILD_IN BEV Routines = COPY_LOG_FIL oe St} 90: 9c: 38 UETPSY.SRCJUETINITO1.MAR;1 ” (id) v 
A 13 Sey Tnse 5 MSGVEC = LOG_RCD 3; Copy Line to SYSSOUTPUT 
d9 Ss " 1? 508 BRB 0$ ; Loop for another temp log record 
11 0021'CF 00 £0 OA33 14 ; BS #SHRT_RPRTV,FLAG,60$  ; Sentinel to onty Log if short report 
As 14 t son PUTMSG_S MSGVEC = LOG_RCD ; Copy sentinel Line to SYS$OUTPUT 
ef 19 AGA 1405 j BSBB cory RECORD ; Copy from temp log to our log file 
FB E ve} 1? § 708 BLBS RO,60$ ; Loop while there are more records 
AGE 14 " - $CLOSE FAB = TMPLOG, FAB. ; Close the temp log file 
= 
ASE 141 SERASE FAB = TMPCOG FAB,- ; Delete the temp log file 
ASE 141 ERR = RMS_ERROR 
05 OA6D 1412 RSB ; Exit copy loop 
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M 
STEM CONFIGURATION sifer os i | 
utines = COPY_LOG_FIL °$ 


P=1 


8c 00:88:35 EEtPSY. SReuErINitO1 .man:t °° (Hy 


nessage a record jrea the (temp) log file of a device test process that‘ 


ed. 

for a 
OPY_RECORD: 
$GET 


30$: LOCC 


50$: TSTL 


60$: 


Massa 
margin, and forming an uppercase 
beginning or ending sentine 


RAB = TMPLOG_RAB 


#RASS_EOF ,RO 
10$ 


TMPLOG_RAB 
#1,,RMS~ERROR 


TMPLOG_RAB+RABSL_R 
TMPLOG-RAB+RABSW_R 
RO,-(SB) 


50 
#13,R0,(R1) 
608 


R 

#10, (R1) 
40$ 

RO 

R1 

#9, (R1) 
50$ 

RO 

RI 

40$ 

R 


60$ 
#*M<RO,R1> 


RO. (R15 , INDENT (R1) 


#0,#0,# 


on-ma 
Cc 
~_ 


TEMP_BOFF DESC 
¥ G™STRSOPCA é 
#SS$_NORMAL,R 


Pete Se Ge Ge Se Ge Ge Se Se Se Se Se Ge Se Ge Se Se Ge Ge 


wn 


(SP) ,LOG_RAB+RABSW_RSZ 
AB = LOG_RAB,- 
RR = RMS~ERROR 
(SP)+,BUFFER_PTR 

FER PTR 


s just 
ng includes reading the record, srtens ing it from the tel? 
of the record so tha 


it may be checked 


need a temp log record 
BR if we have no error 
Is | oof 1.@., reasonable error? 


We have some unknown error... 
-++SO let RMS error handler eat it 


R1 and RO are a string desc... 


; «efor the remainder of the record 


Counts chars as indentation is done 


; BR inside \on indent oteing's start 
r 


Is there a <RET> in rest of string? 
Exit loop if not = no more indent 
Found one. LOCC has us pointing at it 
Point past the <RET> 


; Is there a <LINEFEED>? 
BR 


f we need not skip <LINEFEED> 

Must pass over <LF>... 

«+-Since they're new Line to printers 
Is there a <TAB> at start of line? 
BR if not - we can start indenting 
Must pass over the <TAB> 
More of passing over the <TAB> 

Inner loop to find mult ple <TAB>s 

f we're at the end of the string... 
e+-We Can exit the outer loop 
Save desc to rest of string 

ndent the rest of the strin 


I 
P) ; Fill indented spaces with blanks 


Restore desc to rest of crung 

Point severe the spaces just nserted 
Count total Length incl. indentation 
Loop to see if we need indent again 


; Set log rec size from indented rec 
; Copy the record 


; Set size of indented record... 
3 «eeSO we can make it... 


; «uniform case for sentinel checking 


he) Md a Pht STEM CONFIGURATION Noiter 1 meh 00:98:38 AX/VMS Macro VO 


4-0 Page 34 
utines = FINISH, CONT ROLLE UETPSY SRETUEYINI TOT MAR: 1 . db 
-SBTTL BUILD_INIDEV Routines = FINISH CONTROLLER 


ue now have to check up 3" the euberecess we created to see what it really 
. d to UET up ee. ont the process failed or gund no testable units, the 


a | and yet LBs me marked untestable. it} found testable units, 
te ne i. *se¥conr = the device will be tested in the Device 


5 
Test phase. Remove the end-of- tfite, record from UETINIDEV because there are 
probab ly more eer ces to check. e'll rewrite the record if we agency y have 
inished testin For convenient’ acess R6 will point to INI_R 
will point to CON_RAB. and R11 are in use from BUILD_INIDEV. 


INISH_ «Nh gaa 
MOVA INI_RAB, RG ; Set up.. 
ON-R Bos -convenient RAB pointers 
MOVB PRABSC “Ath. RAB$B_RAC(R6) ; Set RFA mode 
MOVCS #6 DDB ER A, RABSW_RFA(R6) a Set RFA to point to the DDB Line 
E RA ROD ; Go back to the DDB record 
ERR = RMS_ERROR 


CMPB #*A/N/, BUFFERS. ; Any testabie devices? 


SINS NOOOO 2M 


NOUS OOO@nG oO ~< 
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am aa 


10 A6 O74" CF 


on 


0047'°CF 4E 8F 


BEQL BR not 
2B O1A9'CF 108 BLBS MBX_BUF +ACC$L_FINALSTS, 30$ ; ALL was OK if success status 
1E A6 = =00 208 MOVB #RABSC_SEQ,RABSB_RAC(R6) ; Reset UETINIDEV to sequential access 
0047'CF 4E B&F MOVB #*A/N/ ,BUFFER+4 ; Set DDB or UCB not testable 
SUPDATE RAB = (R6) 3; Update each record 
$GET RAB = (R6),- : Get a UCB record 
ERR = RMS_ERROR 
O76A'CF 10 AB 06 CMPC3) #6,RABSW_RFA(R6),END_RFA ; Are all records updated? 
BNEQ 20$ ; Loop if not 
308 B 40$ ; Skip success stuff if so 
SFAO_S CTRSTR = CONT_STR,- 3; Make the UETCONTOO record 
OUTBUF = FAO 
OUTLEN = ALTBUF_PTR,- 
Pl = #TEST_BSC,- 
P2 = #DEVDS 
$5 A7 oie ce MOVW prt af PTR ae . ztay) ; Set the record size 
28 A? 14D'CF MOVAL LTBUF {RABEL R RBFTR ; Set the record address 
$PUT RAB es 3; Write the record 
ERR = RMS > ERROR 
» os" CF INCL TST_CNT 3 Oe more device test to run 


#RABSC ~RrA. RAB$B_RAC(R6) Set RFA mode in UETINIDEV.DAT 


2 MOVB 
10 A6 o7onrer be MOVC3 #6,END-RFA,RABSW_RFA(RO) q + Point to the END Line in UETINIDEV 


$F IND RAG s THe) eo ets "Get the END Line as current 
= 
1E A6 = «00 408 MOVB #RABSC Reo RABSB_RAC(R6) ; Reset UVETINIDEV to sequential access 
STRUNCATE 4 = (R6),- ; Eat the END OF UETINDEV.DAT Line 
ERR = RMS_ERROR 
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Stop a Subprocess -SEP=-1984 UETPSY.SRCJUETINITO1.MAR; 1 (19) 


+f. 13! Wi «SBTTL Stop a Subprocess 
BCS «1520 : FUNCTIONAL DESCRIPTION: 
BCS 1 ; We must coraunere , subprocess either because it seems to be hung or 
BCS § 3 because UETINIT s terminating. Fix things up so we can try to 
+; ! Z 3 continue with the next controller in the system, if need be. 
BCS «1505 : CALLING SEQUENCE: 
+! : § ; Called at AST Level 
BCS ; INPUT PARAMETERS 
+ ! ; O4(AP) = PID of the subprocess we must terminate 
BCS 1531 : IMPLICIT INPUTS: 
Be : VOSC has the name of the controller we wanted to test. 
+ ! Z 3 TEST_DSC has the name of the image to test the controller. 
BCS 1535 : OUTPUT PARAMETERS: 
+ 1 $ ; NONE 

oBcS 15 : : IMPLICIT OUTPUTS: 

Ope 1340 ; 2% 

0BC5 1541 : COMPLETION CODES: 

pate 1306 ; Value from ERROR_MSG. 

Opes 1544 ; SIDE EFFECTS: 

oBcS5 1545 ; Subprocess is deleted, if it was created. 

OBC5 1346 : Error message given. 

bers jaca 
c5 1368 KILL_SUBPROCESS: 

OFFC ce 1339 «WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> =; Entry mask 
04 AC 8 C7 1388 TSTL 04 (AP) ; Was the subprocess created? 
at CA 155 BEQL 0$ ; BR if not 
CC 1554 SDELPRC _S PIDADR = 04(AP) Eneure. that the subprocess dies 
D8 1555 $FAO_S “CTRSTR = PROCESS_STOP_ nsé, - ; Indicate what happened 
D 1 2$ OUTBUF = FAO BUF 
D8 155 QUTLEN = BUFFER PTR,- 
d8 1 38 P = #TEST_BSC,- 
D 155 Ps = #DEVDSC,- 
D8 1560 Pp = #0 
it F OF F 1561 PUSHAL eure PTR 
OOOF0001 BF DD F 1266 PUSHL  #*xF0001 
oBOze}752 BE DB COR 1568 PUSH VETER, TeatzsTssx enon 
COE 1565 SSETIMR_S SAYTIM™= on EMIN Another timer will catch cases... 
COE 1 66 ASTADR = PASS. OVER _SUBPROCESS, 
¢ ! ° sens REQIDT = PIDABR 3 ve ewhere SDELPRC isn't enough 
04 C 1 8 RET 


FR ye near EY Rca cess See PS SEE oe eae GP Ae aM Le ae ME, ga TR WS ORATOR es) o> Be, MRL eee eee 
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vba Pass Over a Subprocess if SDELPRC Fails moet 0:93:88 UETPSY.SRCJUETINITO1.MAR;1 oe (3) 


he -SBTTL Pass Over a Subprocess If SDELPRC Fails 


: FUNCTIONAL yoann ntl we. 
Ritts rundown has not 7 terminated a process we believe to be hung 
th L.SUBPROCESS). We can do no more, so prevent further waiting for 
the process termination “aatiben. 


; CALLING SEQUENCE: 
; Called at AST level 


; INPUT Spry ag F 
; O4(AP) = PID of the subprocess we must terminate 


; IMPLICIT INPUTS: 
; EVDSC has the name of the controller we wanted to test. 
TEST_DSC has the name of the image to test the controller. 


: OUTPUT PARAMETERS: 
: NONE 
P 


IMPLICIT OUTPUTS: 
; NONE 


; COMPLETION CODES: 
; Value from ERROR_MSG. 


; SIDE EFFECTS: 
$Q10W is cancelled for termination mailbox. 
Error message given. 


ASS_OVER_SUBPROCESS: 
.QORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> ; Entry mask 


SCANCEL_S CHAN = MBXCHN 3; Stop worsens for termination mailbox 
$FAO_S gush = PASS pyen MSG,- ; Indicate what happened 


= FA 
OUTLEN = GUFFER PTR,- 
Pi 2 T BSC,- 
P = #DEVDSC 
P = #0 

PUSHAL BUFFER PTR 


PUSHL : ETPS fen LST ee ERROR 
cays /ERROR_ 


Oooo 

ERE E ORR B BE BR BRR RRR EAR RRR RE RE AR aR A A eR a a a a ge 

PUPTAALALA ALA LAPIPIPONIPIPINIPONIPYPIPOPINIMPUPIMINIMIPIPPIPMUNIPIPINPIPIPIPIPUIPINND 
COWS NIAPRIPIMNINPININIAA SE LLL SLEEP PPP PPP PP PPP PPP PPP PPP EEE 
ee ee ee a th ee ee a ed ed aed od ed dS dd od dd od td od dd 
PPP PLPRPAPP DADA DAP DDD aaa 
tt § AQOOOCODOOOCOCOOOCOOOO0O OOO OOOO WWW NNN 
AEA 9 OONOAU EWN 0 OO NOUS WIN OOO WNOA UE UP" OOONOUS 
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-SBTTL Check Whether a Message Needs $FAO Arguments 


FUNCTIONAL DESCRIPTION: 

To enable owe yegtus error messages, we'd Like to print out the 
seen associated with failures as well as the message we provide 
ourself. Some of those messages have SFAO arguments, the values 
for os are lost. Provide a SPUTMSG Length of zero and a set of 
appropriate flag bits so that messages which have no arguments get 
= “ye o their entirety but those that do have arguments omit the 
ext part. 


: CALLING SEQUENCE: 
MOVL status,R2 
BSBW  FAO_CHECK 


; IMPLICIT INPUTS: 
R2 has the status to check. 


; IMPLICIT OUTPUTS: 
2 returns a flag-length longword suitable for SPUTMSG or zero (to 
indicate a null message). 


; SIDE EFFECTS: 
ALTBUF, ALTBUF_PTR and MSG_BLOCK get written into. 


SOOQOCOCOCOOCOCSOOOCOOCOCOCOCOOOOOOCOOOCOOOOOOOOOOCOO 


APOVOIOIOIOOOOAIOVIOOOOOAOOIOAOIOAOAAAOIAIAAOOOAOAOAOOAAOOON 
509.09 0D. 0D 0D. OD Ds OS OOS DOA PPA AAA AA AAA AA AAA AAA A AO 
SOWOWDWS SFOWOOOOOOODOOOVOODOOVOOVOOVOOWOVOOOOOO 

nt tk kt a tt 8 tt a tt 
PAELLA AAEAAAA AA AA AA AAAAAAAAAAAAAAAAAAAAS 


PUPP EB BS EB BE BAAN IInonnnoNonononn— — 


AUIS WN CO OD NA UE WO OD NAUE WN OOONOAU EW "OW 


FAO_CHECK: 
SGETMSG_S MSGID = R2,- ; Check if we need flags to suppress... 
MSGLEN = ALTBUF_PTR,- 
BUFADR = FAO_ALT,- 
FLAGS = ad 
OUTADR = MSG_BLOCK 
O378'CF 95 TSTB MSG_BLOCK+1 3; .-.any $FAO args in message text 
> ie BNEQ 10$ :; BR if there are $FAO args 
2 04 CLRL R2 ; Set flags arg to look Like null msg 
05 108 RSB 
52  000E0000 8F 0 pot #*XE0000,R2 ; Suppress the text of the message 


ay r— 
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COMPLETION CODES: 
SS$_NORMAL if it's a UETP condition or RMS error. 
Error status from exception, otherwise. 


SIDE enreciss 
May branch to ERROR_EXIT. 
May print a message. 


: ] } : ee -SBTTL System Service Exception Handler 

C91 1660 ; FUNCTIONAL DESCRIPTION: 

C91 «1 3 This routine is executed if a system service or RMS error occurs or 

: } 19 ; ifa LIBSSIGNAL system service is used to output a message. 

(81 16 4 ; CALLING SEQUENCE: 

34) 199 ; Entered via an exception from the system 

C91 188? ; INPUT PARAMETERS: 

34) : $3 : ERROR_COUNT = previous cumulative error count 

91 1? 0 : AP went 1 eens Seeeoaceaeo 1 

91 1602 i STM ARY PNT | 

es t8 I RECHARY PAT | 
334 1902 : eee we 4 eeeoeaceaoe : ae aera 
Be Vimar 

c9t 1978 : | ecnncocenconcne i 

34 1oRy : i ___DEPTH eeoeoaee i mnetenhay Array 

Col 1688 i RO i 

C91 16 Py ' were e nn esc eceeen n= ! ' 

C91 1684 ; R1 v 
$34 1886 ’ ee2eeeeen " eee eames es 
0€91 16 $ : lusccencvensecce i ' 
OCot 1688 CONDITION NAME | 

C91 1690 ; i N-3 ADDITIONAL | Signal Array 

C91 1691 ; | LONG WORD ARGS! ! 

34) 1938 Py : — oe as ete ow a 

(91 1694 : | cuainmnnepneenenet i i 

C91 «1695 ; : PSL : v 
0691 1696 : | envetmmnenemmanqustinias aw. 

34 198 ; ee Eee 

C91 1899 ; 

34 : : oe 

cr 17 é ; 

C91 «1705 ; IMPLICIT OUTPUTS: 

C91 «1704 ; NONE 

C91 «1705 ; 

C91 «17 $ 3 

C91 «(1707 ; 

C91 «(17 3 : 

C91 1709 ; 

C91 (17 9 ; 

C91 «1711 =; 

C91 «17 § ; 

C91 #1713; 

C91 1714 
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C91 1713 SSERROR: 
OFFC : : 1§ WORD “M<CRZ2,R3,R4,R5,R6,R7,RB,RI,RIO,RI1> ; Entry mask 
C9 1718 SSETAST_S ENBFLG = #0 ; Disable AST delivery 
1 od OCc9C 171 PUSH #1 3; Assume ASTs were enabled 
50 9 » C9E 17 CMPL $ gSSS_UASSET RO ; Were ASTs enabled? 
- y CAl 17 BEQL 0$ ; BR if they were 
6—E D4 $A if § 108 CLRL (SP) ; Set ASTs to remain disabled 
CA5 1726 SSETSFM_S ENBFLG = #0 ; Disable SS failure mode 
1 DD OCAE 1725 P 1 3; Assume SS failure mode was enabled 
50 3 o cso «(17 § CMPL 5 £885_WASSET AO ; Was SS failure mode enab!ed? 
1 CBs (17 BEQL 0$ ; BR if it was 
6— D4 . Vy 3 208 CLRL (SP) ; Set SS failure mode to remain off 
26 04 AC DO QCB7 17 ? MOVL CHFSL_SIGARGLST(AP),R6 ; Get the signal ervey pointer 
9 046 - 70 OCBB 17 va 4 SIG_NAME(R6),R9  : Get NAME in RO and ARG! in R10 
1 ED 734 if ¢ CMPZV bt a ; Is this a message from LIBSSIGNAL? 
00000074 8F 96 cce 1734 9 ,#UETPS_FACILITY 
16 ig cc8 1735 BNEQ ; BR if this is not a UETP exception 
So - 6 CCA 17 § SUBL2 #2,CHFS$L_SIG_ARGS(R6) ; Drop the PC and PSL 
CCD 17 SPUTMSG_S MSGVEC = CAF St S1G_ARGS(R6) ,- ; Print the message 
CCD 1738 ACTRTN = ACTRITN 
21. 11 13 1073 308 BRB 40$ ; Restore ASTs and SS fail mode 
59  0000045C ef D1 cee 1741 CMPL C5s*_ SSF ALL RO ; RMS failures are SysSvc failures 
12 OCE 17g BNEQ 50$ ; BR if this can't be an RMS failure 
1 ED OCE9 174 CMPZV) = #STS$V_FAC_NO,- ; Is it an RMS failure? 
oc CEB 1744 #STS$S_FAC_NO,- 
01 SA CEC 1745 R10,#RASS$_FACILITY 
2B 4612 «+*OCE 1766 BNEQ 50$ ; BR if not 
5A 0000000 8F A OCFO 174 BICL2 #*xF0000000,R10 ; Strip control bits from status code 
08 A6 % 9 re io MATCHC #4 CHFSL S16 _ARGI (RO) .- ; Is it an RMS failure for which... 
0074'CF OCFC 1739 NO RMS_AST_TABLE 3; »..no AST can be delivered? 
1A 13 44s i 1 i. BEQL 508 ; BR if so - must give error here 
01 # ~BA 1 158 POPR #*M<RO> ; Restore SS failure mode... 
DO3 1754 SSETSFM_S ENBFLG = RO E sos 
01 + =BA one 1755 POPR #*°M<RO> ; Restore AST enable... 
D 5 17 § SSETAST_S ENBFLG = RO SP ees 
50 01 0 QD17 17 MOVL S“#SS$_NORMAL ,RO ; Supply a standard status for exit 
4h \? 8 50s T ; Resume processing (or goto RMS_ERROR) 
0357'°CF 9 00 OD1 1769 MOVL R9, STATUS ; Save the status 
D4 OD 176 CLR ; Assume for now it's not SS failure 
59 0000045C 8F D1 OD 176 CMPL #SS$_SSFAIL,R9 ; But is it a System Service failure? 
8 12 OD 176 BNE ; BR if not - no special cage message 
D2B 1764 SGETMSG_S MSGID = R10,- ; Get SS failure code associated text 
DeB 1765 MSGLEN = BUFFER_PTR,- 
D2B 1298 BUFADR = FAO_BUF,- 
D2B 176 FLAGS = #147- 
D 17 3 OUTADR = MSG_BLOCK 
O378'CF 9 D 17 TSTB MSG_BLOCK+1 ; Get FAO arg count for SS failure code 
16 = 1 D46 17 ? BEQL ; Don't use SGETMSG if no SFAO args... 
0038'CF DF D4 177 PUSHAL BUFFER_PTR 3 «else build up... 


en rc 


A 101 


00741130 ' 

00 5A 

i 
58 34 

57 6 4 

3 ? 

6—E O04 A ? 
7E 66 5 


Oo 
= 


6 9 
VAX/VMS_UETP SYSTEM CONFIGURATION SIZER 


Ig-SeP-1 
System Service Exception Handler -SEP- 
OD pee a7 PUSHE — #YETPS. TEXT 
PD D 1 INSV iE wet egy V_SEV VERITY 
p57 1 ast SSS _ SEVERITY, (SPS 
00 p59 1 Q MOVL aH 
: i} 60S: ae 708 
bp D 17 § " —- PUSHL ~—soR10 
D 06 V7 p ani OVL #1,R8 
C pe 17 : "  MULL3. ss #4, CHFSL_SIG_ARGS(R6),R7 ; 
5 D6 17 SUBL2 R7.SP ; 
D6A 1784 MOVCS R7.CHFSL_SIG_NAME(R6),(SP) ; 
cI DG 1785 ADDL3 RB. CHFSL~ 116 “ARGS(R6).=(SP)~ 
1 0D73 1786 BRW ERROR_EXT 


98¢ be § 35 


Paar 32) ? 
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«+28 message Goscribing... 
ouhy the System Service failed 
Give the message.. 

ae correct severity code 

Count the number of args we pushed 


; Save SS failure code 


; Count the number of args we pushed 


Convert longwords to bytes 

; Save the waren signal array... 
on the sta 

: Push the current arg count 
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: -SBTTL SPUTMSG Action Routine 
: FUNCTIONAL DESCRIPTION: 
This routine is called as the action routine from my ines to gop 
messages to our own log file as well as have them written to SY Sourpur. 


CALLING SEQUENCE: 
Called by SPUTMSG system service if present as the ACTRIN parameter. 


INPUT PARAMETERS: 
O4(AP) = Descriptor for an ASCID string with the message 


IMPLICIT INPUTS: 
NONE 


Page 4 
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OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
Always successful if it returns. 


00000 NN LLL 
DS DDT DOP AAAAAA AA AAA AA AAA AAA AIA AAA AAA A AAS 
Oa kd hh 
> Sete Se Ge Se Se Ge Ge Ge Ge He Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 


0.69.00 09 09 09 09 Cd Cd C9 05 0D G9 CD CD Cd C9 CD CD 09 09 GD 0D C9 CD 0D 0D 09 0D 09 0909 SII INI SII NII 


Stra tte eo Re es 
OOD NA UNE WN S OD NAU EWN O OD NAMEN O OOO 


: 
4 1 SIDE EFFECTS: 
D 1 Message copied to log file. 
oD ! Program may exit, if RMS encounters an error. 
0D 16 ;-- 
D 1 
D 1 CTRIN: 
0004 : 1 -WORD “M<R2> 
7E O6AE'CF 80 OD OVW LOG_RAB+RABSW_RSZ,-(SP) ; Save vital info in case we're asynch 
0684 ‘CF DD OD PUSHL LOG _RAB+RABSL_RBF 
52 O4A DO OD OVL 4(AP),R ; Get the message descriptor address 
O6AE'CF 6 3¢ 8 MOVZWL (R2),LOG_RAB+RABSW_RSZ ; Get the message size 
06B4'CF 04 A2 DO OD OVL 4(R25,LOG_RAB+RABSC_RBF ; Set the message address 
D $PUT RAB = LOG_ Sd 
D ERR = RMS~ERROR ; Write the log file 
50 01 4 DOF MOVL $*#SS$_NORMAL ,RO : Set the return status code 
06B4 ‘CF 8E OD DA MOVL (SP)+,COG_RAB+RABSL_RBF ; Restore vital info 
O6AE'CF 8E BY DA MOVW (SP)+,LOG_RAB+RABSW_RSZ 
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DAD H+ ; .SBTTL RMS Error Handler 
DAD 1835 : FUNCTIONAL DESCRIPTION: 
4 if § : This routine handles error returns from RMS calls. 
DAD 18 : + CALLING SEQUENCE: 
DAD 1859 ; Called by RMS when a file processing error is found. May also be 
7 + + 3 called inline to process an RMS error. 
DAD 184¢ : INPUT PARAMETERS: 
v4 1307 : The FAB or RAB associated with the RMS call. 
DAD 1845 : IMPLICIT INPUTS: 
3 ae 
DAD 1848 + OUTPUT PARAMETERS: 
DAD 1880 a 
DAD 1881 + IMPLICIT OUTPUTS: 
~~ 1826 ; Error message 
DAD 1854 : COMPLETION CODES: 
DAD 1859 ; NONE 
ODAD 1839 : SIDE EFFECTS: 
ae 1928 3 Program may exit, depending on severity of the error. 
gab RG) 
DAD 186¢ RMS_ERROR: 
OFFC DAD 1863 «WORD “M<R2,R3.R4,R5,R6,R7,R8,RI,RIO,R11> ; Entry mask 
6D FEDE CF DE ODAF 1865 MOVAL  SSERROR, (FP) ; Set up our exception handler 
56 604 ag D DBS 186 MOVL 4(AP),R ; See whether we're dealing with... 
66 03 91 ODB8 186 CMPB © #FABSC_BID,FABSB_BID(R6) ; ...a@ FAB or a 
16 12 ODBB 1868 BNEQ 10$ :BR if it's a RAB 
57 g5e?' er D DBD 1869 MOVAL FILE,R7 3; FAB-specific code: text string... 
58 6 OD DcC2 1870 MOVL R6,R 3 ...address of FAB... 
0c A6) «DD «(ODCS «(1871 PUSHL FABSL_STV(R6) : ...STV field for error... 
8 A6 OD ODC8 187 PUSHL FABSL_STS(R6) 3 .--S51S field for error... 
0357'CF “8 dD DCB 187 VL FABSL_STS(R6), STATUS 3 ...and save the error code 
1 1 44 ieee 108 RB RMS_ COMMON ; FAB and RAB share other code 
57 at D O03 18 MOVAL RECORD,R7 ; RAB-specific code: text string... 
58 3C A6 DO ODDB 187 VL  RABSL_FAB(R6) RB : ...address of associated FAB... 
C A6 «6D «6ODDC «187 PUSHL RABSL_STV(R6) ; «STV field for error... 
8 A6 DD ODDF 187 PUSHL RABSL~STS(R6) : .2eSTS field for error... 
0357'°CF 8 A660 bes \i ? mt a RABSL_STS(R6) , STATUS 3 «and save the error code 
SA 34 AB «9A ODER 18 g = MOVZBL FABSB_FNS(R8) R10 ; Get the file name size 
DEC 18 SFAO_S CTRSTR = RMS ERR STRING,- ; Common code, prepare error message... 
DEC 1884 OUTLEN = BUFFER PTR,- 
bec i 5 QUTBUF = FAO_BUF .~ 
. = — 
DEC 18 $ Ps = R16,- 
DEC 18 : P = FABSL_FNA(R8) 
OO3B'CF ODF OE06 18 PUSHAL BUFFER_PTR 3 «..and arguments for ERROR_EXIT... 
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RMS Error Handle ~SEP=1 UETPSY.S 24) 
DD OEOA 1 PUSHL #1 g eee 
00741130 8F ODD p 1 PUSHL ous Tes] XT 3 ces 
EF 1 EXTZV #STSS$V_SEVERITY,- 
14 #1 4 4 HE S_SEVERITY,= 
59 0357°CF 15 1894 STATUS,R 3 «get the severity code.. 
6€ 9 88 19 189 BISB2 RY, (SPS 3 ..-and add it into the signal name 
D QEIC 189 PUSHL # : Current arg count 
00 1 OE&1E 189 BRW ERROR_EXIT 


00000600 ° GF 


02BA' 
FD99 CF 
0398" 


CF 
01 
CF 
4 
00741130 8F 
00 

OOOF * CF 

02 

007410E0 8 
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10000650 8F 
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-SBTTL CTRL/C Handler 


FUNCTIONAL DESCRIPTION: 
This routine handles CTRL/C AST's 


CALLING SEQUENCE: 
Called via AST 

INPUT PARAMETERS: 
NONE 

IMPLICIT pure: 
NON 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


CASTHAND: 
~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11> ; Entry mask 
PUSHL PIDADR ; Clean up any subprocess... 
CALLS #1,KILL_SUBPROCESS 3 
PUSHAL CNTRLCMSG : Set message pointer 
PUSHL arg count 
PUSHL #UETPS_TEXT!STSSK “WARNING § “Set Signal name 
PUSHL @# > ledleate an abnormal termination 
PUSHAL TEST_NAME : es 
PUSHL a 
PUSHL aUETRS ABENDD! STSSK _WARNING’ he 
CALLS Output the message 
VL acts M_INHIB_MSG!- Set the exit status 


S$S$_CONTROLC-= 
ue SUCCESS+STS$K_WARNING>,- 
SEXIT_S STATUS ; Terminate program cleanly 


ns a ts a ts tt ss a is st a ts 


uw 
oO 


VUSSSSCor ee 
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Sere OOS CSC CS.: 
NO NWT > NW 
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-SBTTL Error Message 
"FUNCTIONAL DESCRIPTION: 


Print an error message preceded by the UETP error box message. 


sonanes > SEQUENEE 


a LIBSSIGNAL set of messa 
CALS” count-of-messages,ERRO 


INPUT toga 


List of LIBSSIGNAL arguments to which more may be added. 
Limit on the number or type other than what LIB$SIGNAL imposes. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 


Value from LIBSSIGNAL. 


SIDE EFFECTS: 
Message from LIBSSIGNAL. 


RROR_MSG: 
.WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> ; Entry mask 


MULL3 #4,0(AP),RO 


SUBL SP 

MOVE RO,4(AP), (SP) 
INCL ERROR_COUNT 
PUSHL ERROR- COUNT 
PUSHAL TEST_RAM 
PUSHL #*x10002 


PUSHL  #UETPS ERB XPROC ! STS$K_ERROR 
ADDLS #4,0(ABP) 

CALLS RO eee o$s TGNAL 
MOVL #SS$_NORMAL ,RO 


sier MerSePr19RE BO:ge:38 


Reng except for the error box message 


; Figure bytes already wees. for msgs 
; Reserve stack s m 

; Copy start of t BSSIGNAL. a 

; Keep a count of recoverable errors 
; Form the rest of LIBSSIGNAL args 


; Count total number of LIBSSIGNAL args 


; Continue with recovery 


Be bei83:86 YORTP SY. caeiueyniso1.man;1 2% (38, 
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P-19 
P-19 
-SBTTL Error Exit 


p++ 
; FUNCTIONAL DESCRIPTION: 
This routine prints an error message and exits. 


CALLING SEQUENCE: 
MOVx error status yejue STATYS 
PUSHx error specific information on the stack 
PUSHL current argument count 
BRW  ERROR_EXIT 


INPUT PARAMETERS: 
Arguments to LIBSSIGNAL, as above 


IMPLICIT INPUTS: 
NONE 


wr 


OUTPUT PARAMETERS: 
Message to SYSSOUTPUT and SYSSERROR 


IMPLICIT OUTPUTS: 
Program exit 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


FTL Se Oe Be He Oe Be Ge Be Be Be Be Oe Se Be Se Se Se Be Se Se Se Se Se Se Se Oe Se 


RROR_EXIT: 
SSETAST_S ENBFLG = #0 
BB 


OOOCOoCoCoocoo 
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WR HHMMOCVVOPOOOW 


ASTs can play havoc with messages 


FP OOOOOOOOOOOOOOODODODODOOOOOOOOOOOOOOOOO 


o>» 


15 0021'CF 91 EO S “#BEGIN_MSGV,FLAG, 10S ; BR if seein msg already printed 
E 04 CLRL =(SP) ; Set the time stamp flag 
OOOF'CF OF PUSHAL TEST_NAME ; Set the test name 
2 odd PUSHL # ; Push the argument count 
00741039 BF ODD PUSHL #UETPS BEGIND !STS$K_SUCCESS ; Set the message code 
00000000'GF 04 FB ve CALLS #4,G*LTBSSIGNAL ; Print the startup message 
0388" CF 08 8E C1 ADDL3 (SP)+,#8,ARG_COUNT ; Get total # args, pop partial count 
O353'CF 06 INCL ERROR_COUNT ; Keep running error count 
DD $ ; Push the time parameter 


PUSHL @# 

PUSHAL TEST_NAME Push test name... 

PUSHL  #*xF0002 ; «srg count... 

PUSHL #UETP$_ABENDD!STSSK_ERROR ; ...and signal name 
oR COUNT : Fini 


NOME WI OS OO NA UNE WIN $$ SO ONAN WAIN 2 0 OD NAME UP - O OODNOAUSE 


i OF 
FOO02 8F DD 
or DD 


DD PUSHL ERR ; sh off arg List... 
DF PUSHAL TEST_RAME © dant 
9001 : F OD PUSHL #*x10002 eee 
4 0 F DD PUSHL M#UETP$ ERBOXPROC!STSSK_ERROR ; ...for error box message 
00000000 ' GF ‘CF FB ARG_COONT,G*LIBSSIGNAL~ ; Truly bitch 


TSTL TATUS 3 pte we exit with an error code? 
: we 
MOVL #UETPS_ABENDD!STSSK_ERROR, ~ ; Supply a generic one otherwise 


BBB BEEF AWNING Rona nop“pgsn“7gngmnngnnywnsd 2 2 4 4 | “DOOD OOOOCOCOCOOOOOOOovOooO 
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208: 
10000000 8F 8 oF 03 $04 ; ISL.  #STS$M_INHIB_MSG,STAT i , 
F Sexit_s STATUS” I G,STATUS ; ¢ Bon. t pr nt ohessoges twice! 
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3 FUNCTIONAL DESCRIPTION: 
3 This routine handles cleanup on exits. 


; CALLING SEQUENCE: 
Invoked automatically by SEXIT System Service. 


INPUT PARAMETERS: 
Location STATUS contains the exit status, FLAG has synchronizing bits. 


IMPLICIT INPUTS: 
NONE 
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OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
Various files are de-accessed, the process name is reset, and any 
necessary synchronization with UETPDEVO1 is carried out. 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 
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XIT_HANDLER: 


OFFC «WORD “M<R2,R3,R4,R5,R6,R7,R8B,R9,R1I0,R11> ; Entry mask 
SSETSFM_S ENBFLG = #0 ; Turn off System Service failure mode 
SSETAST_S ENBFLG = #0 ; We're finished - no more ASTs 
SDELLOG_S LOGNAM = MODE,- 
TBLFLG = #1 ; Clean up the logical names 
00 DD PUSHL #0 ; Set the time flag 
OOOF'CF OF PUSHAL ta ; Push the test name 
DD PUSHL # ; Push arg count 
00741081 8F DD PUSHL #UETPS ENDEDD!STS$K_SUCCESS ; Push signal name 
00000000'GF 04 FB #4,G*LTBSSIGNAL ; Output the message 


WR S OD NAUE WN SO OO NA UE WIN 0 OD NAME AN 0 ODNOUE UP 


OOO O00 09 09 09 09 09 09 09 09 09 INI NS NSN NN NOAA AAAAAAA MINIT 


S PRCNAM = ACNT_NAME ; Reset the process name 


CALLS 
SSETPRN_ 
RET ; That's all folks! 
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LIBSSIGNAL 
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MOD 
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MPM_RECORD 
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MSG_BLOCK 
MSG _P 


NONE _LEN 

NO_RAS_AST_TABLE 

NRAT_LENGTA 
L“RECORD 
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PROCESS _STOP_MSG 
QUAD_ STATUS 
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ee table tet 1 90:93:38 LOE TPSY. SAC IUEYINIGOT MAR: 1 . 3B) 
STSSM_INHIB_MSG 21 0 TESTING_MSG 4A9 R 03 
STS$S_FAC_NO = TESTING ISG _LENGTH = 008 
STS$S_SEVERITY = TESTING MSG_TEXT 4B9 R 
STS$V_FAC_NO 2 TEST_COONT CE Rg 
STS$V- SEVERITY = TEST_DSC AS R 
SUBPROCESS_ FAIL 8 TEST_ IMAGE AD R 
SUBPROC_ERROR 056 R TEST_NAME OF R 2 
xIT Pe TEXT BUFFER = FA 

SUMA_HEADER A2 R THREEMIN g 
SUMM- OUTPUT AR TMPLOG_FAB $0 R 
SUPDEV_CLUS_DENOSU f TMPLOG_RAB R 
SUPDEV_DENOSU 4A1 R 5 TOLM 9 ; R ; 
SUPDEV—GBLSEC 020 R TST_CNT R 
SUPDEV-MATCH 0 Oe R TST-CNT_STR ioe R ¢ 
SuP_FAB 0000558 R TTCRAN $ 019 R 
SYSSASSIGN tererere GX 5 UCB_CTRSTR 1FA R é 
SYSSCANCEL teeneree GX 5 UCB=N 0 389 R 
SYSSCANTIM eeeeeeee GX 5 UCB_ RECORD 000 é FR 5 
SYSSCLOSE tererere GX 3 UCB-T 00005A3 R 5 
SYSSCMKRNL eeeeeree § GX 5 UETINITO1 944464 RG 5 
SYSSCOMMAND 00000061 R oe TP = 00740000 
SYSSCONNECT teeeerer GX UETPSCLSI0DB teeeeeee§ X 05 
SYSSCREATE eereenee GX 03 UETP$_ABENDD = 007410 0 
SYSSCRELOG teeeeeee GX 5 UETP$_ABORTC = 8 748 3 
SYSSCREMBX teeeeere GX 05 UETP$_BEGIND = 007410 
SYSSCREPRC eeeeeeee GX 5 ETP$_COPY LOG = 00703081 
SYSSCRMPSC eeeeeeee GX 5 UETP$_DENOSU = 00748333 
SYSSDCLEXH eeeeeree GX 5 UE TP$_ENDEDD = 00741080 
SYSSDELLOG teeeenee GX 5 UETP$_ERBOXPRO s prnanse 
SYSSDELPRC tereeeer GX 05 UETPS_FACILITY = 00000074 
SYSSERASE eereener GX 05 UETP$_OPENIN = 0771998 
SYSSEXIT eereneee GX 05 UETPS_TEXT = 0074113 
SYSS$FAO eeeenere =X 05 UIC 444444 R 03 
SYSS$F IND eeeereee GX 5 UID$K_ODDB_RTYPE = 0000000 
SYSSFLUSH eeeeeere GX 5 UID$K-END_RTYPE 2 BONN 8 
SYSS$GET eeeeeeee GX 5 UID$K_MPM_RTYP = 0 
SYSS$GETCHN eereeeer GX 5 UIDSK_NULC_RTYPE = 00000000 
SYS$GETDVI teeereer GX 5 UID$SK-UCB_RTYPE rs 444 
SYSSGETJPI eeeeeeee GX 5 UIDDDBST_RAME = 00000008 
SYS$GETMSG teeeeere GX 5 UIDFLAGSA_DDB 2s 389 04 
SYSSOPEN eeeeeene GX 5 UIDFLAGSM_MPM = 00000010 
SYSSPUT ttrereee GX 5 UIDFLAGSM_SID = 39098) 
SYSSPUTMSG eeeeerer GX 5 UIDFLAGSM_UCB = 00 08 
SYS$QI10 eeeerere GX 2 UIDGNRC$B_ TYPE 2 38 6 

$010W eererere GX UIDGNRCS$W" SIZE 2 4 
SYSSREWIND eeeeeeer GX 5 ULDMPM$W_RUMBER s $8 007 
SYSSSETAST eererere GX 5 UIDSID$T_NODENAME 2 0031 
SYSSSETIMR eeeeeeee GX 5 UIDUCB$B_DEVCLASS s 8 8 9 
SYSSSETPRN eeeerere GX UIDUCB$B_DEVTYPE s A 
SYSSSETSFM teeereer GX UIDUCB$W- NUMBER = 000 4 7 
SYSSTRNLOG eererere GX UNTESTABLE 0 5 R 02 
SYSSTRUNCATE eeeerere GX 5 
SYSSUPDATE tererere GX 
TEMP_BUFF _DESC gf R 
TEMP” BUFF-STR 7R 
TESTABLE of R 
TESTABLE_LEN = 
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! Psect synopsis ! 


Geoeeereoecescecoes 


PSECT name Allocation PSECT No. Attributes 
- AB 8 ( -)»> 00 ¢ -) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD 
SABSS ( -» O1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE R&D 
RODATA f ( 1598.) ¢ ( 6° NOPIC USR CON’ REL LCL NOSHR NOEXE RD 
RWDATA ( 1904.) ( -) NOPIC USR CON’ REL LCL NOSHR NOEXE RD 
SRMSNAM tH ( §°} 4 ( 4.) NOPIC USR CON’ REL LCL NOSHR EXE RD 
UETINITO1 FSA ( 3930.) O05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD 
torr rene ewan eee enon nee ree + 
! Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00: 8-97 0: 0:00.38 
yonnene processing 111 00:00:00.7 0: a8 8) 
s 1 668 88: 231.4 0:01:01.50 
Synbol table sort 4 0:00: 3°3 0:00:07.14 
Pass 2 420 00:00:07. Bp BR! 08-22 
Symbol table output 28 0:00:00. : 00: 8788-80 
Psect synopsis output 1 0:00:00. Bp BR 0.03 
Cross-reference output 9 0: tf 0 B80: 88 OY 
Assembler run totals 126 00:00:43.61 00:01:30.07 


The working sett Limit was 2000 pages. 
177751 bytes (348 pages) of virtual memory were used to buffer the intermediate egde- 
There were 120 pages of symbol table space od pone d to hold 2174 non-local and 65 local symbols. 


source lines were read in Pass 1, produci ng, object records in Pass 2. 
6 pages of virtual memory were used to define 68 macros. 
Pre new ones ee eee nec an nn ene es + 


! ; Macro Library statistics H 


Macro Library name 
“gst: Hace iat -MLB; ! 


55$DUA eye IBISTARLET~ hup:2 
Tovacs (all libraries) 


2550 GETS were required to define 65 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:UETINITO1/0BJ=OBJ$:UETINITO1 MSRC$:UVETINITO1/UPDATE=(ENHS:UETINITO1) +EXECML$/LIB+SHRLIBS$:UETP/LIB 
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NOWRT NOVEC BYTE 


NOWRT NOVEC PAGE 
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